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From the people 
who brought you... 
BUSINeSSPAH+ 


Five NEW programs 
designed for the 
businessperson. 


Each on its own cassette 
with interesting manual. 


Fist with softwere for the Model fap 


You have made BUSINESSPAK+ an over- 
whelming success! Now, we are introducing 


TYPE+ $59.95 
The Model 100 now becomes, with the addition 







five new programs for the Model 100. 
PCSG continues to be first in innovative 
programming for the businessperson using 
the TRS-80 Model 100 Computer. 
Look at these five new programs. 


DATA+ $59.95 


With DATA+ the Model 100 becomes virtually a 
true data base. You can input data rapidly from 
a 16 field screen that you make yourself like our 
PUT+. Here is the difference: 

REVIEW / Using function key 1 you can recall 
any record, by searching any field. 

EDIT / Change or update any record you select, 
instantly on the screen, 

LIST / Using function key 5 you can print add- 


ress labels, list records or selected fields of records 


in columns or other configurations. You can 
even pause, and reset left margins. 

MERGE / Function key 6 lets you merge. You 
can automatically print any fields of any records 
into forms or letters, wherever you designate. 
With all four of these functions you have full 
search and selection capability. 

With LIST and MERGE DATA+ remembers 
your favorite formats, quickly defaulting to them 
by simply pressing the ENTER key. The added 
feature BUILD lets you build and print a file of 
unrelated records that could not be selected 
either alphabetically or numerically. 

On cassette with excellent, easy to understand 
manual. 


TRS-80 Model 100 is a 
trademark of Tandy Corporation 
©1983 Portable Computer Support Group 


of any printer, the finest, most feature rich, 
electronic typewriter available today, You can 
type directly to the paper. (Some printers have 
a one line buffer.) 

SCREEN BUFFER / To allow you to edit before 
printing, you can control the screen buffer from 
1 character to the last line. 

CENTER / Center on / center off controlled 
with function keys. 

MARGINS / Set margins with function keys. 
Audible end of carriage, automatic carriage 
return and function key Tab Set. 


DIRECT CONTROL / If your printer responds to financial calculator 


backspace commands, you can backspace and 
overstrike. Paper advances with carriage return, 

With TYPE+, everything you print is stored 
simultaneously in a RAM file, formatted as you 
composed it. You can reprint instantly, or edit 
it in the file. On cassette with excellent, easy 
to understand manual. 


TUTOR+ $29.95 


Learn keyboard skills by playing a delightfully 
exciting game. While experiencing the thrills of 
a space invaders type game you become profic- 
ient at manipulating the keyboard, A game that 
forces you to learn touch typing, utilizing all 
the keys. On cassette with excellent, easy to 
understand manual. 


PCSG provides hotline software support 
for the Model 100. Give us а call at 
1-214-351-0564. 


BUSInessoaH- 
PORTABLE ONNUR QIR QT ROVE 


11035 мадем HIMES BLVD. 2207 DALLAS. TEXAS 75229 
PROVIDING SOFTWARE FOR THE 1725.80 MODEL 100 


1 - 214 - 351-0564 


SORT2+ $29.95 


You can sort a file in place with SORT2+. It 
consumes only 1k free memory, while sorting file 
in RAM you entered with PUT+ or DATA+. Our 
original SORT+ allows you to sort from cassette, 
but requires more memory while sorting. SORT2+ 
is for those times when mernory or cassette sorting 
is a problem. SORT2+ also has upper case fold, 
and true numeric field sort. On cassette with 
excellent, easy to understand manual. 


TENKY+ $59.95 


With TENKY+ the numeric keypad on your Model 
100 emulates both a ten-key desk calculator, and a 
The right side of the screen 
represents the tape, which can also be directed to 

a file and/or a printer. Ten working registers are 
visible on the left of the screen, each one function- 
ing independently as a calculator with functions 
including exponentiation and logarithms. Registers 
are accessible from each other, including the tape 
which stores up to 120 values, each associated with 
a note of up to 26 characters, 

Financial functions available at the touch of a 
key include IRR, MIRR, and NPV on up to 120 
cash flows, plus any of its six annuity variables 
(n, PV, FV, PMT, i). Function key F2 gives а 
printed amortization schedule, and businessmen 
will love the breakeven analysis they can receive 
simply by pressing function key F1. 


Portable Computer Support Group is 
pleased to offer these program additions. 
We endeavor to continue as The Leaders in 
Software for the Model 100. 


RORIABLE COMPUTER ХОНГ ORCUP 


11035 Harry Hines Blvd. No. 207, Dallas, TX 75229 


MASTERCARD / VISA / COD 


From Computer Plus to YOU... 


PLUS after PLUS after PLUS 


Model IV 16K $849 
Model IV 64K 
2 Disk & RS232 $1699 


Color Computer Il 16K $185 
w/46K Ext. Basic $245 
w/64K Ext. Basic $305 


Model 100 8K $679 
Model 100 24K $835 


CITOH Prowriter $375 


CITOH Prowriter ІІ $649 
Here are just a few of our fine offers... 


BUY DIRECT call TOLL FREE for full information. 


PRINTERS DISK DRIVES 
Smith Corona ТРІ D.W. 469 R.S. Model 4 Drive 0 
Silver Reed EXP500 D.W. 425 Color Computer Drive 0 


CoCo Drive 0 $329 DWP240 $629 


CoCo Drive 1 $235 


COMPUTERS 
Model 12 64K 4 Drive 
Model 12 64K 2 Drive 


$2699 
3375 


Model 4 16K 
Model 4 64K 
2 Disk & RS232 
Model 4 Portable 
64K 2 Disk 
Color Computer Il 46K 
wi16K ext. basic 
wi64K ext. basic 
Pocket Computer 2 
Model 16B 1Dr 256K 
Model 16B 2Dr 256K 
Model 100 8K 
Model 100 24K 
MODEMS 
Hayes Smartmodem II 


Silver Reed EXP550 D.W. 


Daisy Wheel II 
DWP210 
DWP4410 
CGP115 
CGP220 Ink Jet 
DMP400 
DMP420 
DMP200 
DMP420 
DMP500 
DMP2100 
Gemini 10X 
Delta-10 
Gemini 15 


645 
1745 
629 
4459 
159 
545 
215 
395 
520 
735 
4249 
1745 
315 
515 
425 


Color Computer Drive 4 
Primary Hard Disk M12 


Primary Hard Disk МИ 
ETC. 

CCR-81 recorder 

C.C. Joysticks (pain 

16K Ram Chips 

64K Ram Chips 

8K Par/Par Microfaser 

Printer Cables 

Printer Stands 

Printer Ribbons 

Printer Paper 

Dust Covers 

Computer Books 


R.S. Software 10% off list. 
Send for listing of 
brand name software. 


CITOH Prowriter 375 
CITOH Prowriter || 649 
Okidata CALL 
Epson CALL 


Hayes Smartmodem 1200 
Novation Smartcat 1200 
Novation J-Cat 

R.S. AC-3 

R.S. Modem | 

R.S. Modem II 


TOLL FREE 
1-800-343-8124 


P.O. Box 1094 US 
Write for your 


480 King Street 
Littleton, MA 04460 

free catalog 
SINCE 1973 — 


We have the lowest possible 
Fully Warranteed Prices AND 

a full complement of Radio Shack 
Software. 


Prices subject to change without notice. 
Not responsible for typographical errors. 


TRS-80 is a registered trademark of Tandy Corp. 617-486-3193 
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Man ‘Of Letters’ 
Bullish On PoCo 





I want to start off by saying thank you 
to the more thana hundred people who 
wrote me after last month’s column. 
The response was somewhat greater 
than I thought it would be — but it 
wasn’t all that surprising. 

I especially appreciated all the kind 
words so many of you had to say about 
PCM. And, too, we thank you for tak- 
ing the time to write when the words 
were not quite so kind. Yes, we revel in 
the good comments but we pay atten- 
tion to be bad ones as well. 

I’m also glad to be able to report that 
the number of comments in the latter 
category were few. What that seems to 
mean, at least to me, is that PCM is 
making some fine strides and that it is 
addressing needs that should be con- 
sidered. 

Oh, certainly, some of you wrote to 
say that you thought we had too many 
“leisure” activities in PCM; while others 
said that you thought (based on as an 
example LCD watches) that the Porta- 
ble Computer would be very well suited 
for “arcade” games and couldn’t we 
have more of them. 

I suspect we'll be tangling with that 
issue for some time. 

But most important of all, at least to 
me, is the fact that — in the last month 
or so — PCM seems to be attracting 
more and more articles and programs. 

That's really good for us. And good 
for you, too. And, probably most impor- 
tant of all, that is what my column last 
month was really about. 

We started up PCM with several 
people in the fold, so to speak, who 
would be able to write programs for us 
in the first issues. Our problem was that 
those people can only до so much: Both 
in terms of what they can write and in 
terms of their sheer creativity. The latter 
problem is more important than the 
former. 


And the reason for that is because 
once someone has addressed the needs 
he or she has, it begins to become some- 
thing of a strain to address the needs 
someone else might have as well. Really, 
it becomes difficult to discover the needs 
someone else might have. 

Here's where you come in and here is 
why I am so encouraged by the increase 
in submissions to PCM. Because, as 
those submissions increase, we're tap- 
ping the needs of other people. Those 
needs may closely match your needs, or 
your interests. 

Please do not let this mean to you that 
we're suddenly flush with programs and 
reviewers. But I see a change beginning 
to take place. As it does, I believe you 
will see PCM moving to better serve 
your own interests. 

And, remember, we do very much 
encourage your contributions. And we 
pay for them, too. 


I am negligent in not having wel- 
comed Richard (Dick) White to the 
ranks of PCM's contributing editors 
last month. 

Dick will be offering a series called 
BASIC Bytes that will be of invaluable 
interest to those of you who want to 
learn to program in BASIC. Dick will 
also be contributing programs to these 
pages. 

Dick's addition to the staff brings the 
first computer *name" to PCM. The 
author of several programs and a com- 
puter programmer with few peers, Dick 
has a knack for explaining the most 
complicated things in the most simple 
ways. I think you will be pleased with 
his column. 


A couple of the letters 1 received 
expressed some concern about the future 
of the Portable Computer. The way 
some were talking about it, they felt the 


Model 100 market has not grown as fast 
as they wished. 

I can tell you that those fears are 
probably misplaced. Without revealing 
any sources, 1 think I can say that there 
will be continued support for the Porta- 
ble Computer and that support will con- 
tinue to grow in the weeks and months 
ahead. 

Asanexample, | have seen and heard 
of some pretty spiffy programs that are 
moving toward the market — both from 
Radio Shack itself and from the third 
party market. And, while none of these 
(except, perhaps, the bar code readers) 
will have a singularly significant effect 
on the market, the sum total of them 
should make a very large impression. 
To steal a phrase, I'm bullish on the 
Portable Computer. 

And, while on the subject, I do not 
think that the "salvation" of the market 
rests with big companies buying huge 
quantities of Portable Computers for 
their staffs to work with. Rather, I think 
the market is geared more toward the 
average businessperson who needs, yes 
needs, a computer with him in many 
different situations. Why, if every on- 
the-road salesperson bought a Portable 
Computer, Tandy’s stock would go through 
the roof! 

But what is even more significant is 
that those same people would be using 
the Portable Computer for other things 
as well — recreation, figuring their 
taxes, communication with other com- 
puters and the like. And, in doing so, 
they will create a huge market for soft- 
ware and other products, primarily because 
they will be looking for things to use for 
"their" computer. 

So I'm bullish on the Portable Com- 
puter. And, if you're reading this, you 
most likely are, too. 

And 1 don't blame you a bit. 

— Lonnie Falk 
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Letters 








ALL WORK, NO PLAY 


Editor: 

I must compliment you on PCM but 1 
would like to say that you concentrate too 
much on business applications for the Model 
100. The portability of the device has proven 
invaluable to an electrical engineering stu- 
dent such as myself. 

Kelvin A. Desplanque 
News Brunswick, Canada 


LET’S GET SERIOUS 


Editor: 

I have now received three issues of PCM 
and would like to comment. 

The- general format and size is great. 
Please don't grow over 100 pages — it's just 
too much to read with all the other papers, 
etc., that directors, such as myself, must 
absorb each month. Even 50 pages is enough 
for me. 

Some pages could be saved if the content 
is kept more serious. The last issue had 30 
percent *waste" on frivolous games and light- 
hearted "nothings." Surely buyers of a 
$1000 Portable don't need more than 5 per- 
cent (2 pages) of such relaxation! 

However, there is a lot of good potential 
in PCM and I really like the approach from 
basics. Many users will be new to computers, 





like myself (after six months on CoCo) and 
will need guiding hand-in-hand. 1 also like 
the big print and lively style. But please limit 
the game stuff to one per issue maximum! 
Thanks and good luck. 
M. Waters 
Tracy, P.Q., Canada 


Editor: 

I am happy to see the introduction of your 
magazine and look forward to your future 
issues. I hope that you will beable to expand 
your reviews of software for business/ pro- 
fessional applications as more programs 
become available. 

It seems that Radio Shack sales personnel 
are thoroughly unfamiliar with other makes 

. of equipment. Therefore, articles on inter- 
facing the Model 100 with other makes of 
printers and direct communications with 
other microcomputers (such as the IBM- 
PC) would be most helpful. 

Mark A Houser 
Greenville, SC 


BEST TO CHECK WITH CUSTOMS 


Editor: 

Regarding your article "Wonders of East 
and West," you run the risk therein of dan- 
gerously misleading your readers. 


Plot Against Your Competition! 
with QuickPlot® 
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8710-0257 
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Complete QuickPlot Package 


plotting. 


Model 11/12/16 


Includes: Bar Chart, Pie Chart, Modellll/4 ............. $89 
and Line Graph. Data and chart Model 100 .............. $49 
formats save to disk for future ІВМ-РС/ХТ............. $89 





Now you have a friend in the software business. 


I travel overseas extensively on business. 
Most people are not aware that many coun- 
tries prohibit anyone from bringing elec- 
tronic equipment through their borders. 
Even those that are not so strict prohibit 
computers! Mexico, for example, requires a 
special permit for a computer to be brought 
in and l have seen them confiscated at cus- 
toms. India prohibits the import of any elec- 
tronic equipment, including even calculators 
and radios. 

While tourists’ baggage is not always 
searched, the prudent traveler should check 
the appropriate customs rules and then 
decide if the risk is worth taking. 

Paul K. Biba 
Bernardsville, NJ 


ELECTRIFYING ADVICE 


Editor: 

AA batteries at 1.5У each are required by 
the TRS-80/100. Rechargeable batteries at 
1.25V each will not work. At 8-days battery 
life with 32K, this is a shock. (Pardon the 
pun!) 

T. Robert Lewis 
Scottsdale, AZ 


[PCM 







We've just given the CGP-115 Color 
Plotter business status. With Quick- 
Plot, your TRS-80 or IBM-PC can 
produce high quality line-, bar-, and 
pie-charts in vivid color. Simple data 
entry and flexible chart formatting 
makes QuickPlot and the CGP-115 
Color Plotter the logical choice for 
the professional who wants to plot 
his profits—not spend them. 


CERTIFICATION 
SEAL 















901 Embassy Square Blvd. 
Louisville, KY 40299 











(502) 491-6122 





Call or write to place your order or send for free 
information. 














TRS-80 and CGP-115 are registered trademarks of Tandy Corporation. PC and 
PC/XT are registered trademarks of IBM Corporation. 
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MONSTERS 


Monsters & Magic 


The most realistic fantasy role-playing game yet for the 
Color Computer. You start out by rolling up yourcharacters 
basic ability scores and buying equipment. When you are 
ready it's into the dungeon. Your character starts at first 
level, but can rise in levels by garnering experience in the 
fray. If you have role-played fantasy games you will be 
amazed at the realism of the combat system. Armor class, 
initiative, and damage by weapon type are all included, 
with over 50 different monsters to fight- each with it's own 
abilities. As you rise in level you can win treasure and find 
magic weapons and spells - if you live!! You set the game 
length by telling how many monsters you want to fight 
before you reach your final battle to the death against the 
powerful Dungeon Lord. There are 1000+ place descrip- 
tion combinations in this text based game, and real excite- 
ment in every one! This is a fantasy simulation, and is truly 
not like any adventure game you have ever seen. For 1 
player. $19.95 tape—24K 


Astrology 


Truly a classic, this program will accurately cast your 
complete horoscope. You just enter the date, time, and 
place of birth. The sun sign, rising sign, mid heaven (MC), 
lunar nodes, and planetary influences including houses 
andaspects between the planets will all be calculated, and 
a full chart drawn. You can also do progressed charts and 
transits. It will even tell you the day of the week you were 
born. The accompanying book will help you interpret this 
chart of your horoscope. The extent of the documentation 
is tremendous, even by our exceptionally high standards, 
and no previous knowledge of the subject is required. You 
can share in this wisdom which has been used for thou- 
sands of years in many cultures. This program was written 
by a professional Astrologer. $34.95 tape — 16K 


Your personal check is welcome - no delay. Include 
$1.50 shipping for each program ordered. (Shipping free 
on $50.00 or larger orders). AZ residents add 796 sales 
tax. Orders shipped within two days. 


Viking! 


A simulation for 1 to 4 persons. Each begins as a land- 
owner, and by farming their land, buying and selling land, 
expanding their fishing fleet, building on to their manu- 
factory, increasing their population, equiping and training 
more soldiers, and regulating their taxes, each player tries 
to increase their economic power and rank until one 
becomes ruler over all. But beware plagues, rats, raiders, 
revolts, bad weather, and other misfortunes which may lie 
along the road to success. As you progress, see the map of 
your holdings increase. Playable in 1 to 2 hours, and 
different every time, you may have an addiction problem. 
$19.95 tape — 24K 


Gangbusters 


If you ever wanted to try a life of crime, this is your chance. 
You will start out as a Punk, but by using brains, and a little 
muscle, you can rise to become a Hood, Runner, Bookie, 
Torpedo, Fence, Kingpin, or win by becoming Syndicate 
Boss. Indulge yourself. Bribe a judge, or the District 
Attorney. Pay off the Cops. Take out a contract on another 
player, but watch out, they may be after you. Buy trucking 
companies, bootleg operations, houses of ill fame, but 
remember, if you get caught, you may do some hard time. 
Do you have whatit takes to take over? This game will keep 
you close to your rod, get you thinking about bulletproof 
glass in your car, and definitely bring out the worst in you, 
but you'll love every minute of it. For 2 to 6 players, takes 
about 2 hours to play. Every game is excitingly different. 
$19.95 tape — 24K 


Stocked by Quality Dealers, or 


Send Order To: PRICKLY-PEAR SOFTWARE 


9234 E. 30th Street 
Tucson, Arizona 85710 
(602) 886-1505 





Basic Bytes 


Some ‘Constants’ 
About Variables 


By Richard A. White 
PCM Contributing Editor 


Dick White has been programming in 
BASIC for over three years, and has a 
number of programs on the market for 
the Color Computer. He is also a col- 
umnist for the Rainbow, РСМ 5 sister 
publication, and is a member of CIN- 
TUG, the Cincinnati TRS-80 Users’ 
Group 
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organize and reference the data being used in the program. A 

variable is simply a name given to a particular piece of data. Data 
should be thought of as being assigned to a variable and not as the 
variable equaling the data, even though the equal sign is used to make 
the assignment. Early BASICs emphasized the assignment idea by 
requiring the use of LET. One had to write LET X = 10 or LET Y$ — 
"HELLO," LET is an optional statement in Model 100 BASIC. You 
may see LET used in older BASIC programming books. 

In Model 100 BASIC you may use any one or two letter combina- 
tion for a variable except reserved words. What is a reserved word? It 
is one that is also a BASIC statement or function command. ON, TO 
and GO are examples. When the computer encounters an ON, it 
starts looking for a variable representing a number to use in a 
following GOSUB or GOTO action. If your statement had been 
ON=20, no variable comes next, the computer gets confused and 
registers a complaint as a SN Error in XXX meaning a SYNTAX 
ERROR. 

Actually, you may use whole words as variables, but only the first 
two letters are recognized. The objective is to allow writing clearer 
programs, but there are drawbacks that keep people from using the 
capability. First, there is the added memory used, one byte for each 
added letter each time the variable is used. Secondly, the number of 
conflicting reserved words (BASIC commands —remember?) become 
much more numerous. Lastly is the trouble in devising meaningful 
words which always are different from any other in the first two 
letters. If 1 had two FOR-TO-NEXT loops, one within the other, 1 
might like to name the variable in the outer loop COUNTONE and 
the inner loop variable COUNTTWO. Since the first two letters are 
the same the computer cannot tell the difference and the loops won't 
work the way you expect. So, we will try ONECOUNT and TWO- 
COUNT instead. The first two letters are different, but ONECOUNT 
contains ON, a reserved word and SN Error results. Another loser is 
TWO-COUNT. The computer sees it as a subtraction, TW—CO 
without a variable to assign the result so, SN Error. 


Г а high level language like BASIC, variables аге provided to 


There are two basic types of varia- 
bles, real and string. Real variables 
represent numbers, and are used directly 
in equations making calculations result- 
ing in some number. Model 100 BASIC 
lets you define whether a variable will be 
an integer, a single-precision, floating- 
point decimal number, or a double- 
precision, floating-point decimal num- 
ber. The higher the precision, the more 
memory necessary to store the number. 
Integer variables are useful for simple 
counting and other integer number op- 
erations which are encountered all the 
time. Aside from the memory savings, 
integer math is much faster than float- 
ing point math. This is easily demon- 
strated with the following program. 





When you run this program, you will 
see that the integer test takes three to 
four seconds, the single precision test 
takes 11 to 12 seconds and the double 
precision test takes 13 seconds. 

Integer math is performed directly in 
the microprocessor registers. This re- 
sults in speed, but limits the range of 
numbers allowed from -32768 to 
+32767. No decimals are allowed. You 
have to tell BASIC that you want the 
number to be an integer. The % after the 
X in Line 10 did this. Likewise, X! 
means X is single precision. Default is 
double precision. In Line 50, either X# 
= | or X=1 produces a double precision 
operation. You can convert from one 
variable type to another. This is fairly 
well covered on page 114 in your Model 
100 Manual. 

Single and double precision number 
math is performed using a "floating 
point decimal" routine in ROM. The 
test times show that floating point math 
takes time to do. However, the time dif- 
ference between single and double pre- 
cision operations are not great. The big 
difference is the number of significant 
digits used and the memory space requir- 
ed to save the number. Single precision 
numbers consist of up to six significant 
figures plus a decimal point and use four 
bytes of memory compared to two for 


an integer. Double precision numbers 
consist of as many as 14 significant fig- 
ures and use eight bytes of memory. 
Both single and double precision num- 
bers may range from +-1Е+62 to +-1E- 
64. E+62 means 10 raised to the 62nd 
power. 

You can use the type declaration tags 
%, !, # and $ for a string variable 
throughout your program and have a 
clearly documented program, at least as 
faras variable types are concerned. You 
can also assign type attributes to varia- 
bles based on the first letter of the varia- 
ble at the beginning of the program. 
DEFINT I, K-N makes I, K, L, M, and 
N integers, as well, and two letter com- 
binations starting with these letters, 


such as LA, LX and IJ, would also be 
integers. However, type declaration tags 
take precedence over DEF commands. 
In the program above, we could have 
started Line 10 with DEFINT X : and 
used X rather than X% in the FOR-TO- 
NEXT loop. The result would have 
been the same. When the program reach- 
es Line 30, X! will cancel the integer 
attribute and single precision operation 
will take place. Other definition com- 
mands are DEFSNG to assign the single 
precision attribute, DEFDBL for dou- 
ble precision and DEFSTR for strings. 
If you use the definition commands, be 
careful to keep a list handy of what you 
defined and check it as you use variables 
to avoid errors. 

A string variable references a string of 
characters. The string may contain any 
character and may be up to 255 charac- 
ters long. Of course, the “$” following 
the variable defines it as a string. In the 
assignment statement for a string varia- 
ble, characters must be between qoutes, 
or defined using CHR$(XX) ог STRS$ 
(Y). Here XX is the ASCII number for 
the character. Y is a real variable that is 
converted to a string having a leading 
space. Examples are А$ = "THIS IS AN 
example", B$= CHR$(128) which is a 
telephone and N$ = 5ТВ%(20). 

Strings can be added to each other in 


a process called concatenation. C$ 
= A$ +“ FOR THE ARTICLE ON 
VARIABLES." Now C$ represents 
"THIS IS AN example FOR THE 
ARTICLE ON VARIABLES." If we 
concatenate C$ with B$ like this D$ = 
C$ + B$ we would get the same string as 
before but with a telephone number 
after the period. 

A$ +“ " is an allowable concatena- 
tion. A$ appears on both side of the 
equality. We can also write A= A + 10. 
This comes back to the assignment idea. 
The right side is evaluated and the result 
is assigned to the variable on the left. 
The computer finishes its work on the 
right portion using whatever A or A$ 
represent initially before it redefines 
them. 

Both real and string variables can be 
viewed as either global or local. Actu- 
ally BASIC variables are always global 
since they can be used anywhere in a 
BASIC program. In some languages, var- 
iables can be defined so they only havea 
value in a particular subroutine and are 
in fact local. Further, in these languages, 
the same variable name will mean one 
thing in the main program and another 
in a subroutine. We cannot define our 
variables like this, but we can view how 
we use them as local or global. In a file 
program, the variables that refer to the 
data records are global in that they are 
defined in the input section, changed in 
the editor, saved in another section to 
memory or tape, used in search and sort 
sections and in various subroutines. A 
variable used in a FORTONEXT loop 
in a subroutine means nothing when 
you exit that subroutine and may be 
reused elsewhere. 

There is a savings of memory if cer- 
tain variable names are prechosen and 
used only for local purposes. They can 
be redefined and used again and again 
in other parts of the program. This 
serves to help clarify the program if it is 
known that J and K, are always used 
locally, generally serve counting pur- 
poses, are defined as integers using 
DEFINT J, K and never have meaning 
once the using routine is left. This will 
work well with some careful discipline 
and I think is much better than trying to 
find an unused variable each time a 
short loop is needed. You should also 
define string variables and other real 
variables for local temporary data hold- 
ing purposes. Just make sure all local 
variables are assigned data when they 
are first used in the routine and do not 
contain data needed elsewhere when the 
routine is exited. 


[PCM] 


November 1983 PCM 9 











A Bit Of 
Latitude 


By Robert Frowenfeld 
PCM Contributing Editor 











his month On The Road is going 
| to traverse some of the more 
traditional disciplines of compu- 
ter applications and delve into some- 
thing a little different. Гуе been given 
the /atitude, if you'll pardon the expres- 
sion, to develop a fascinating program 
that can be used by anyone interested in 
surveying. Whether you are a civil engi- 
neer or a landowner with a little survey- 
ing experience and a desire to survey 
your property, this program will do just 
about everything you could imagine! I 
first developed this program about 14 
years ago while trying to learn surveying 
and computer programming at the Uni- 
versity of Vermont. Although originally 
written in FORTRAN, I have success- 
fully converted it to Microsoft BASIC, 
and, if I might add, it runs great. 

The real beauty of having this pro- 
gram on a portable computer like the 
Model 100 is that you can examine the 
precision of your survey while you're 
still in the field — you don't haveto wait 
until you get back to your desk to find 
out that you've made an error! 

Before we get started, let's review 
some of the fundamentals of surveying 
so that we can use this program, called 
TRAV. BA, properly. I’ve named it TRAV 
because this program is designed to 
compute the error in closure of a tra- 
verse. A traverse is an area of land. It is 
usually marked off by placing stakes at 
the boundary points. These stakes can 
then be used in conjunction with a tran- 
sit, a device for measuring the angle 
formed between two lines. Figure | isa 
drawing of a parcel of land we'll call 
PoCo Park of Prospect, Kentucky. As 


you can see it has been staked off at 10 
points labeled A, B, C, D, E, F, G, H, J 
and K. The lengths of the lines are indi- 
cated on the drawing and were deter- 
mined by using a steel surveying tape. 
When performing a survey it is common 
practice to record the bearing of each 
line in the traverse. The bearing is the 
angle a line makes relative to the North 
or South. Bearings are counted from 0° 
to 90°, the 0° being either at the North 
or South point and the 90° either at the 
East or West point. For example, if a 
line makes an angle of 35° with North 
and is headed East, it has a bearing of N 
35° E. For the purposes of this program 
we are going to have to use azimuths, or 
true bearings. These are (typically) mea- 
sured from the South at 0° in a clock- 
wise manner. Therefore, West would be 
90°, North would be 180°, East would 
be 2709, and South (again) would be 0° 
or 360°. It is a simple matter to convert 
bearings to azimuths. In the south-west 
quadrant the azimuth and the bearing 
are the same. In the north-west quad- 
rant the azimuth is 180° minus the bear- 
ing. In the north-east quadrant the azi- 
muth is 180° plus the bearing. And 
finally, in the south-east quadrant the 
azimuth is 360° minus the bearing. It’s 
really very simple. If you are doing a 
survey, just keep in mind that you want 
to record the azimuth of each line. 
Now for the program. In order to 
properly run TRAV.BA, you must al- 
ready have a data file set up. The name 
of the data file is TRA V. DO, that’s easy 
to remember. Let’s now discuss how this 
is going to work. First, you'll have to 
enter the TEXT program supplied on 


your Model 100. When asked for the file 
to edit just enter the name TRAV. The 
first line to be entered is the traverse 
name. The second line is the number of 
points in the traverse; for this example 
there are 10 points in the PoCo Park 
traverse. Then for each line around the 
traverse enter the line length and the 
azimuth measured in degrees, minutes, 
and seconds, each separated by a 
comma. Figure 2 shows how the entries 
іп а surveyor's field book might look for 
our PoCo Park example, and below this 
is a printout of the file TRAV.DO for 
this example. 

That's it. All you have to do now is to 
get back into BASIC and run the pro- 
gram TRAV.BA. Before you run it, 
though, here's a helpful hint. I've al- 
ready mentioned the convenience of 
having this program available to you 
when doing your field work, but there 
are routines built into TRAV to print 
out the results once you get back to the 
office. Line 20 initializes the variable 
"PR" to a value of zero. If you want all 
the printout to go to an attached prin- 
ter, change this line to: 20 PR—-I. 

The program will first display the tra- 
verse name (Figure 3). Next is a listing 
of the points as measured. The first 
point is considered the origin and its 
coordinates are 1000.00,1000.00. This is 
commonly done in surveying to avoid 
the occurrence of negative values if you 
go too far in the south or west direc- 
tions. If you have the need to survey a 
large traverse and you wish to change 
these starting coordinates, simply change 
the values for Х(1) and Y(1) in Line 60 
of the program to the values you desire. 
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Figure 1 
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As mentioned above, each point’s coor- 
dinates are displayed as they were deter- 
mined by measuring tape and transit. 
The last point (point number 11 in our 
example) should have the same coordi- 
nates as the origin. However, due to a 
variety of inaccuracies that can occur 
when performing a survey, there is 
bound to bea small amount of error. In 
our example there was an error of 0.04 
feet in latitude, or the North-South (Y) 
direction, and an error of 0.02 feet in 
departure, or the East-West (X) direc- 
tion. 

The next display generated by TRAV 
indicates the error in each direction, the 
total error in closure, and the error 
ratio. In the example, the error ratio 
was one part in 38,147. This is excellent 
and could be considered acceptable for 


PoCo Park 
Prospect, KY 


Figure 2 


Station 
м 


хәəлочтитооо> 


Distance (feet) 


Surveyor’s Field Notes 

Azimuth 
208.64 242° 31’ 30” 
436.79 154° Э" 30" 
56.48 e TF 15" 
98.80 387 227 y 
68.62 143° 22 0” 
95.10 120° 3l 0" 
207.41 51° 40’ 45” 
103.75 3219 32' 45" 
96.75 266% 52” 30" 
420.77 320° 41’ 30” 


Listing of Input Data File TRAV.DO 


most applications of field surveying. 
Now that the program has deter- 
mined what the errors were in survey- 
ing, it will proceed to balance the tra- 
verse by distributing the errors propor- 
tionally over each line. Since the errors 
in latitude and departure were small, the 
lengths of only a couple of lines will 
have to be changed to close the traverse. 
Had the error been much larger we 
would expect a change to appear in all 
the lines. One nice thing about the 
Model 100 is the fact that it is doing all 
its computations to 14-digit accuracy. 
This is considerably more precise than 
using five-place or six-place logarithmic 
and trigonometric tables. It’s also an 
assurance that your results will be accu- 
rate (no more looking up a table when 


PoCo Park 

10 
208.54,242,31,30 
436.79,154,5,30 
505.48,87,1,15 
98.80,53,22,0 
68.62,143,22,0 
95.18,128,31,0 
207.41,51,40,45 
105.75,321,52,45 
96.75,266,52,30 
420.77,520,41,50 





you should have looked down!). 

After proportionally adjusting the 
line lengths, TRA V lists again the X-Y 
coordinates of all the points. Notice the 
small difference in the coordinates of 
some of the points as a result of the 
balancing procedure. More important- 
ly, notice the coordinates for the last 
point, #11. They are now 1000.00, 
1000.00, which is what they should be in 
a balanced traverse. The traverse has 
been closed! 

The next screen shows the total area 
in square feet and acres as well as the 
perimeter of the traverse as it was mea- 
sured. For those of you who are inter- 
ested, this program uses the Double- 
Meridian-Distance method of computa- 
tion — again with the 14-digit accuracy 


PORTABLE COMPUTER DESK TOP STAND 


Improves Viewing and Typing Angle 


Briefcase Portable 


Mail Check or Money Order to: DISKUS PRODUCTS 6003 Bandini Blvd., Los Angeles, CA 90040. VISA or M/C call 
(213) 726-3088 The POCO STAND $17.95 plus $2.00 each unit Shipping & Handling — CA residents add 6.5% sales tax. 
Patent Pending. © 1983 DISKUS PRODUCTS For RUSH Delivery add $2.00 extra — U.P.S. Blue Label 
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of your Model 100’s math functions. 
When using a transit, a surveyor usu- 
ally can only measure angles to the 
nearest 10 seconds. Since I haven't done 
any surveying for some time, l'm not up 
to date on new equipment. 1 imagine 
that by now there are electronic transits 
that can measure to better than 10 
seconds. Nonetheless, the next feature 
of TRAV is still useful. We've already 
balanced the line lengths to account for 
the errors in surveying, but what about 


the angles? Well, since we know the cor- 
rect line lengths, TRAV can compute 
the corrected azimuths. The next dis- 
play shows the corrected azimuths in 
radians and degrees-minutes-second for- 
mat accurate to .01°. 

The last display shows the corrected 
line lengths, and we’re done. 

Here’s a hint that will enable you to 
use TRAV for any size traverse. The 
program was originally set up to handle 
a traverse of 50 lines. While this would 


satisfy most any surveying need, if you 
desire to modify the program, just 
change the DIM statement in Line 35. 

P.S. We really don’t know how many 
of you out there in PoCo land will use 
this program or have an interest in sur- 
veying, but we would sure appreciate 
your letting us know. If there is enough 
interest | would like to include a routine 
that would plot the traverse on the 
Model 100’s LCD. Anybody out there 
interested? 





Роба Park зка 1,266.57 674.43 
Measured Values for Coordinates 1,080.00 1,000.00 
Area: 148,953.58 Sq. Ft. 
Point s X-Coordinate Y-Coordinate 3.42 Acres 
1 1,000.00 1,000.00 Perimeter: 1793.11 Feet 
2 814.89 903.74 
3 1,005.97 310.96 Corrected Azimuth Angles 
4 1,052.37 513,90 
Š 1,141.66 572.85 Line # Radians 
6 1,182.60 317.79 1 4,233 
7 1,264.53 469.49 2 2,689 
8 1,427,295 598.10 s 1.519 
9 1,363.20 679.72 4 0.931 
10 1,266.60 674.45 5 2.502 
11 1,000.04 1,000.02 5 2.105 
Error Statistics 7 0.902 
Х Еггог H 8 5.618 
у Еггог $ 7 8,658 
Total Error: 10 5.597 
Error Ratio: 1 / 38147 Dorrwekad Lengths 
Balanced Values for Coordinates 
Line # Length 
Point # X-Coordinate Y-Coordinate 1 208.55 
1 1,000.00 1,000.00 2 436,79 
2 814,89 903.74 3 56,48 
5 1,005.95 510.96 4 98.80 
4 1,062.36 513.89 " 58.62 
5 1,141.64 572.84 6 95,10 
6 1,182.58 517.78 7 207.40 
7 1,264.51 469.48 8 105.75 
8 1,427.22 598.09 9 96,75 
9 1,369, 17 679.71 10 420.77 
Тһе listing: M . А5 
10 CLEAR 1000: DEFINT I-N 150 D=DI(I-1) 
20 PR=Q 140 A=(AD+AM/60+AS/3600) /57. 2958 
35 DIM X(51),Y(51) ,AN(S1) ,DI (51) 150 DX2D*SIN(A) :DYzD*COS (А) 
40 Р1=3,1415926 168 X(1)=X(I-1)+DX:Y(I)=Y(I-1)+DY 
50 05=0 170 DS=DS+D 
60 Х(1)-1000:Ү(1)-1000 180 NEXT I 
70 Fi$z"4s939939 , HH" 198 LA=I-1 
90 OPEN "TRAV.DO" FOR INPUT AS 1 195 XEZX(LA) -Х (1) з YESY(LA) -Y (1) 
100 LINE INPUTS1,TT$ 197 ER*SOR(XE*XE*YE*YE) 
110 INPUT#1,NP 198 ET=DS/ER 
120 FOR 1=2 TO NP*1: INPUTSI,DI(I-1) ,60,8 200 CLS 
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210 PRINT TT$:PRINT:IF(PR) THEN LPRINTTT 

$:LPRINT 

228 A$=" Measured Values for Coordina 

tes":PRINT A$:PRINT:IF(PR) THEN LPRINT A 

$:LPRINT 

230 GOSUB 800 

240 GOSUB 900 

245 XFzXE:IF ABS(XF)<.@1 THEN XF=8 

246 YF=YE:IF ABS(YF)<.@1 THEN YF=0 

250 CLS:PRINT TAB(12)"Error Statistics": 

PRINT:PRINT TAB(1@)"X Error :"USING F 

1$: XF: IF(PR) THEN LPRINT TAB(12)"Error 5 

tatistics":LPRINT:LPRINT TAB(10)"X Error 

:1"USINGF1$; ХЕ: 

260 РКІМТТАВ (10) "Ү Error :"USING F1$; 

YF:IF(PR) THEN LPRINT TAB(10)"Y Error 
:"USING F1$;YF 

270 PRINT TAB(10)"Total Error:"USING F1$ 
;ER:IF (PR) THEN LPRINT TAB(10)"Total Er 

ror: "USING F1$;ER 

280 PRINT TAB(1@)"Error Ratio: 1 /"INT( 

ET):IF (PR) THEN LPRINT ТАВ(10)"Еггог Ra 

tio: і /"INT(ET) :LPRINT:LPRINT 

300 GOSUB 900 

310 PE=DS 

320 UX=XE/PE:UY=YE/PE:Ti=X(1):T2=X(2) 

330 LI=NP+1 

340 FOR 122 TO LI 

350 DE=T2-T1;CD=DE-DI(I-1)#*#UX:X(I)=X(I-1 

)+CDsT1=T2:T2=X (1+!) 

368 NEXT I 

370 T1zY(1)1T22Y(2) 

375 FOR 1=2 TO LI 

380 LA#=T2-TisCL=LA#-DI(I-1) #ЏУ У (1) = У (1 

-1)+*CL;:T1=T2:T2=Y(I+1) 

390 NEXT I 

40@ ‘print balanced values 

418 CLS:A$z" Balanced Values for Coor 

dinates":PRINTA$:PRINT: IF (PR) THEN ЕРКІ 

NT AS:LPRINT 

420 БОБОВ 8@0:GOSUB 900 

430 SA=V (1) #(X(2)-X (NP) )+Y (МР) € X CI) - ХМ 

P-1)) 

440 FOR I=2 TO NP-1 

450 SA=SA+Y (I) #(X (141) -Х(1-1)) 

452 NEXT I 

455 AR=ABS(SA/2) 

460 AC=AR/43568 

470 CLS 

480 PRINT69O,"Area: "USING"&8,"*F1$:0R;:P 

RINT" Sq. Ft.":IF (PR) THEN LPRINT TAB( 

10) "Агеа: “USING"#,"+F1$;ARs;:LPRINT" 54 

t FE" 

490 PRINT8138,USING F1$;AC; :PRINT" Acre 

s":IF (PR) THEN LPRINT TAB(18) USING F1$ 

sAC3:LPRINT" Acres" 

495 PRINT@205,"Perimeter: "USING F1$;D 

S::PRINT" Feet":IF (PR) THEN LPRINT TAB 
(5) "Perimeter: "USING F1$5D8; :LPRINT" 
Feet":LPRINT:LPRINT 


497 GOSUB 900 

500 'compute corrected angles 

502 X(NP+1)=X(1):Y(NP+1)=Y(1) 

505 FOR I=1 TO NP 

506 DXsX(I*1)-XCI) :DYsYCI*1) -Y(CI) 

507 DI(I)=SQR(DX*DX+DY*DY) 

508 IF DX<@ THEN 570 ELSE IF DX>@ THEN 5 


510 IF DY<@ THEN 512 

511 AZz20:60T0 599 

512 AZ=PI:BOTO 599 

540 IF DY<@ THEN 546 ELSE IF DY=@ THEN 5 


542 AZ=ATN(DX/DY):GOTO 599 

544 AI-PI/2:60T0 599 

546 рҮ=АВ (рҮ) sAZ=PI-ATN(DX/DY):GOTO 599 
570 IF DY=@ THEN 574 ELSE IF DY>@ THEN 5 


572 AZ=PI+ATN(DX/DY):GOTO 599 

574 AZsS*PI/2:60T0 599 

576 DX=ABS(DX) :AZ=2*PI-ATN(DX/DY) 

599 AN(I)=AZ:NEXT I 

600 ‘print azimuths 

610 CLS: А$=" Corrected Azimuth Angl 

es":PRINT A$:PRINT:IF (PR) THEN LPRINT A 

$:LPRINT 

620 A$-"Line # Radians Deg Min 
Secs":PRINT A$:1F (PR) THEN LPRINT A$ 

630 FOR 1=1 TO NP 

640 DE=AN(1)*57.2958:ND=DE:MI=(DE-ND) +20 

650 SE-(DE-ND-(MI/650))*3500 

660 A$=" ## #. HHH WWW = HHH 
##.##":PRINT USING A$; I; ANCI) 5 ND; MI;SE: 

IF (PR) THEN LPRINT USING A$; I; ANCI) 5 ND; 

МЕ БЕ 

678 NEXT I:GOSUB 900 

700 ‘print corrected line lengths 

710 CLS:As=" Corrected Line Length 

S":PRINT A$:PRINT:IF (PR) THEN LPRINT ñ$ 

:LPRINT 

720 PRINT ТАВ(10) "(іле # Length":IF 
(PR) THEN LPRINT TAB(1Q)"Line # Le 

ngth" 

738 FOR Ізі TO NP:A$z" ## ыы." 

“:ІРКІМТТАВ(10) USING A$; I5 DICI)3 IF (РК) 

THEN LPRINT ТАВ(10) USING A$; I; 1 (1) 

755 NEXT I 

740 PRINT:GDSUB 900:CLS:END 

800 ' 

ВІЙ A$z"Point # X-Coordinate Y-Coord 

inate":PRINT A$:1F (PR) THEN LPRINT ñ$ 

820 A$=" ## #, HHH. HF #, HHH 

ÉS"ESFOR 1=1 TO NP*1:PRINT USING ñ$; 1; X( 

I) Y(I):IF (PR) THEN LPRINT USING ñ$;1;X 

Уа 

825 МЕХТ 1 

830 RETURN 

900 PRINT@280,” Press any key to conti 

nue s.. "y:IF (PR) THEN LPRINT:LPRINT 

905 AS=INPUT$(1):RETURN РСМ 
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1 "о say that I am in love with my 
Model 100 would be a gross 
understatement. The total porta- 

bility coupled with the built in software 

form a combination that make the 
machine hard to resist. 

The ADDRSS file was the first appli- 
cation put to use, and after extensive use 
only one shortcoming has surfaced. 
When the ADRS.DO file is listed on a 
printer, all of the individual fields are 
pushed together making it very difficult 
to read. 

Here are two versions of a utility that 
can be used to print your ADRS.DO 
files in a more organized and readable 
format. When complete, the printout 
resembles a batch of two-across labels. 
One version is for use with a parallel 
printer, while the other is used with a 
serial printer via the RS-232 port. 


Serial Printers 
To use the serial version you will have 
to make up a printer cable as described 


deohn Doe 
12354 Nonesuch Road 
Trent,TX 79999 


81235-43567: 


"d 


Name 3 
Address 3 

City, State Zip 
» ЕТтустте 5 
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in the September issue of PCM, Page 
21, 

The serial version of the program is 
set up for a 2400 Baud printer and 8-bit 
words, and includes a delay loop that 
allows the printer to catch up with the 
computerafter each line is printed. This 
delay can be adjusted to your printer by 
changing the value in the FOR-NEXT 
loops in lines 46 and 48 of the program. 
To change the Baud rate or any other 
communications parameter, refer to 
pages 35 or 85 of the M100 manual. 


Parallel Printers 

No hardware modifications are 
necessary on the parallel version, All of 
the following applies to both serial and 
parallel versions. 


Setting Up 

Before either program will work, your 
ADRS.DO file will have to be set up 
with “field separators.” That is, the 
individual parts of each record will have 


Joe Blow 
771 Backroad St. 
Tye,TX 79888 


за 152109 


Мате 4 

Address 4 

City, State Zip 4 
гРћопе: 
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| МА АМАН 
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to be separated with a character that the 
program can recognize as a delimiter. I 
have chosen to use the asterisk (*) for a 
separator because it is not used any- 
where else in the file. You should also 
use four fields in each record, they are: 
1) Name, 2) Address, 3) City, St. Zip and 
4) Phone number, with the field separa- 
tor inserted between each. For example, 
to create a new ADRS.DO file with this 
format, enter the TEXT program and 
type in the following: 

John Doe* 

Notice the asterisk immediately follow- 
ing the “e” in Doe. This is the first field 
separator. Follow this with the address: 
1234 Nonesuch Road* 

Again notice the asterisk after the word 
Road. Now enter the City, State and Zip 
code 

Trent, TX 79999* 

Don't forget the asterisk, and finish up 
with the phone number, with a colon at 
the beginning and end: 

:123-4567:% 

Don't forget (о enter the final asterisk 
and press the ENTER key two times. 
This willmark the end of this particular 
entry and insert a blank line between it 
and the next entry. Use the same proce- 
dure to enter the remainder of your 
address file. An ADRS.DO file with 


(Dale Wheeler, an electronics techni- 
cian for Hendrick Medical Center in 
Abilene, Texas, has been “into compu- 
ters for about four years, starting with 
the TRS-80 Color Computer.” He is 
also a ham operator with an extra class 
license. His call number is AGS W.) 


Notice the field separators (*) between 
the fields and the blank line between 
each record. 


four entries should look like the follow- 
ing: 


Running 

When the program is run, the first 
prompt will be “Hard copy (Y/N).” If 
you answer N (no) the ADRS.DO file 
will be printed only on the screen, two 
records at a time for your inspection. To 
P EXT advance to the next two records, press 
Мате S¥Address 2*City, ENTER. If youanswer Y (yes) then you 
* will be prompted with "How many 
copies?" Input the number of copies you 
need and press ENTER. The entire file 


John Doe*x12234 Nonesuch Road*xTrent,TX 
79999%і125-4567:% 


Joe Blow*x771 Backroad St.*Tye,TX 79888ж 


LI P—S21 Sst 


State Zip*e:Fhone: 


State Zip 4% 


Name 4*Address 4#City, 


:Fhones* 





Listing 1 (Serial): 


2 'LABELS-SERIAL 

4 MAXFILES=1: CLEAR4500:DIMA$ (100) 

b OPEN"RAM:ADRS.DO"FOR INPUT AS 1 

8 NzN*1:IF EOF(1)THENT2ELSELINEINPUTS1,4 
$(N) 11FEOF(1) THENIZELSEINPUT41,X$ 

10 БОТОВ 

12 CLOSE: OPEN"COM: 48E2E"FOR OUTPUT AS 1: 
'2400 baud 8 bit words to serial port 

14 CLS:PRINT"Hard copy (Y/N) ":HC$2INPUT$ 
(1) : IFHC$zZ""ORHC$z"n"THENHC$z"N"ELSEIFHC 
$z"y"THENHC$z"Y" 

16 IFHC$z2"Y"THENPRINT: INPUT"How many cop 
іе5ѕ"; МС: РОКСМ= 1 ТОМС: СЕ5: РКІМТ "Сору &"CN: 
80506818: В0ТО20Е1 5Е 20 

18 FORBS=1TO5:PRINT#1 ,CHR$(13)3:GOSUB48: 
NEXTBS:CL=5: RETURN 

20 FORX=1TONSTEP2:Y=X+1 

22 A$=A$(X):CLS:PRINTA$:IFA$=""THENA$=" 
+e eee" 

24 BS=A$(Y):PRINTs PRINTB$: IFB$=""THENB$= 
"* * * Ы 

26 IFHC$="N"THEN34 

28 FORZ=1T04:C=INSTR(AS,"*"):C$(Z) =LEFTS 
(A$, C-1) SAS=RIGHT$(A$,LEN(A$)-C):NEXTZ 
30 FORZ=1T04:C=INSTR(BS,"*"):D$(Z) =LEFT$ 
(B$,C-1):BS=RIGHTS (BS,LEN(B$) -C)  NEXTZ 
32 FORZ=1TO4:E$=C$(Z) +SPACE$(48-LEN(C$(Z 
)))+D$(Z):PRINT#1,E$;CHR$(13);:5DSUB46:C 
L=CL+1:NEXTZ:PRINT#1,CHR#(13);:60SUB48:P 
RINT#1,CHR$(13);:60SUB48:CL=CL+2;IFCL=>5 
STHENG0OSUB38:BOSUB18:GOTO3óELSE36 

34 PRINT8240,""; : INPUT"Press «ENTER? to 
continue"; WAIT$ 

36 NEXTX: IFHC$z2"N"THENA44ELSEGOSUB38: GOTO 
40 

38 FORLC=CLTO65:PRINT#! ,CHR$(13)3:GOSUB4 
8: NEXTLC: CL20: RETURN 

40 IF HC$="N"THEN44 

42 NEXTCN 

44 CLOSE: СЕ5: ЕМ 

46 BEEP:PRINTe280,CHR$(27);"p";" Wait "; 
CHR$(27)3"q"3:FOR DLz1TO80Q0: NEXTDL: RETUR 


will then go to the lineprinter. 


N 
48 BEEP:PRINT8280," Wait ";:FORDL-1TO100 
: NEXTDL: RETURN 


Listing 2 (Parallel): 


2 'LABELS-PARALLEL 

4 MAXFILES=1:CLEAR4500: DIMAS (100) 
6 OPEN"RAM:ADRS.DO"FOR INPUT AS 1 
8 NzN*1:IF EOF (1) THENIZELSELINEINPUT#1 ЈА 
$(N) : IFEQF (1) THEN12ELSEINPUTS41,X$ 

10 БОТОВ 

12 CLOSE 

14 CLS:PRINT"Hard copy (Y/N)":HC$2INPUT$ 
(1): IFHC$=""ORHC$="n"THENHC$="N"ELSEIFHC 
$="y"THENHC$="Y" 

16 IFHC$z"Y"THENPRINT: INPUT"How many cop 
ies";NC:FORCN=1TONC:CLS:PRINT"Copy $"CN: 
B0S8UB18: GOTO2OELSE2Q0 

18 FORBS=1TO5:LPRINTCHR$(13)3:NEXTBS:CL= 
S: RETURN 

20 FORX=1TONSTEP2: Ү=Х+1 

22 AS=AS(X)SCLS:PRINTA$: IFAS=""THENAS=" 
кеке" 

24 BS=A$S(Y) SPRINT: PRINTB$: IFB$=""THENBS= 
ttgr” 

26 IFHÜO$="N"THEN34 

28 FORZ=1T04:C=INSTR(A$,"#"):C$(Z)=LEFT$ 
(A$,C-1):A$=RIGHT$(A$,LEN(A$)-C):NEXTZ 
50 FORZ=1T04;C=INSTR(B$,"*");D$(Z)=LEFT$ 
(B$,C-1):B$=RIGHT$(B$,LEN(B$)-C):NEXTZ 
32 Ғ0К27-1704:Е%-С%(7) +5РАСЕ$ (40-(ЕМ(С% (2 
)))+D$(Z):LPRINTE$;CHR$#$(13);:CL=CL+1:NEX 
TZI:LPRINTCHR$(13);CHR$#(13);:CL=CL+2:IFCL 
=>SSTHENGOSUB1I8: GOTOS6ELSE34 

34 PRINT8240,"";: INPUT"Press <ENTER> to 
continue"; WAIT$ 

36 NEXTX: IFHC$z2"N"THENA4ELSEGOSUBS38: GOTO 
40 

58 FÜRLCSCLTO&6S: LPRINTCHR$(13) ; МЕХТІС: С 
(=0: RETURN 

48 IF HC$z"N"THEN44 
42 NEXTCN 

44 CLOSE: CLS: END 
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Five major airlines. have doubts, and have ordered them 
grounded while a Federal commission investigates. 


inm m 





ere's the bad news: Fearing dis- 
Но of critical navigation 

systems on jetliners, five carri- 
ers — American, United, Eastern, Con- 
tinental, and Western airlines — have 
quietly acted to prohibit passengers 
from using their portable computers 
while in the air. The good news: the ban 
is mainly out of fear of the unknown, 
not confirmed disruptions of aviation 
electronics, or “Avionics.” 

Every new advance in technology 
brings with it a whole new set of safety 
questions, and the portable computer is 
no exception. Even five years ago, who 
would have thought that a 64K machine 
would be carried like a notebook and 
run on penlight batteries, much less that 
it would be used on a plane? Now, the 
federal government has set up an advi- 
sory panel on portable computers in 
aircraft. The issue of portable compu- 


(Jim Hawk has been working in radio 
news for the past 12 years, and has a 
science and electronics background. He 
also does freelance writing in Washing- 
ton. D.C.) 
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ters on airlines has become a topic of 
intense interest in Washington, possibly 
more so due to current events. Namely, 
the KAL flight 007 that strayed off 
course and over a secret Soviet missile 
base, apparently because the pilot mis- 
entered navigational figures into the 
onboard computers of his American- 
built Boeing 747. We'll never know for 
sure, but what if there might have been 
contributing factors — like radio inter- 
ference caused by a portable computer? 
One thing is known for sure — at least 
five major airlines have banned the use 
of personal computers while in-flight. 
The following is a special report on the 
Model 100 and its demonstrable radio 
interference. 


A Do-it-yourself Test 

First of all, there can be no debate 
that the PoCo has some bizzare effects 
on consumer electronics located nearby. 
Most of the time the effects are mild... 
Гуе learned to ignore the “herring- 
bone" pattern І get on channels 4 and 5 
of the Washington area on my 9-inch 
color TV, which sits in my office about 
two feet from the PoCo's usual spot. 


By Jim Hawk 


You can do your own un-scientific test 
to literally hear what I mean. Find any 
portable AM-FM radio and de-tune it 
slightly off-channel in the FM range of 
88 to 94 MHz, and turn on the Model 
100. Hold the radio about six inches 
away from PoCo, and rotate it for best 
effect. With the 100 just turned ON with 
the menu displayed, I heard through my 
walkman-type headphones what sounded 
exactly like a lawn mower idling! Now, 
try going to a text file and move the 
cursor downward so the file starts scrol- 
ling. During each “blink” when the 100 
is moving all the text lines up one 
column, there's the multi-toned radio 
burst of your Model 100, electronically 
"thinking." Then, run a BASIC program, 
and listen to the variety of tones. Or, go 
to the ADDRSS file and listen as the 
100 finds a name . . . each function 
seems to have its own unique tone 
signature. 

I've found that just about any radio 
picks up the M100's "signals" at close 
range, and it's also audible over TV 
audio channels in the low-VHF range 
— especially with peripherals like a 
cassette or A.C. supply plugged in. This 


is to be expected, since all the connect- 
ing wires help transmit. All right, but 
other household components produce 
interference — just try listening to an 
AM radio nearby your TV. Or, watch 
your FM signal wash in and out whena 
jetliner passes close by. But these effects 
are minor, and have no measured safety 
hazards. When it comes to possible 
hazards to an airliner, though, a whole 
host of federal agencies and commis- 
sions come into play. 


What the Government Says 

Before being offered for sale, the 
Model 100 had to meet the FCC stand- 
ards on radio interference. Will 
McGibbon, division chief of the Federal 
Communication Commission’s test 
facility in suburban Washington, con- 
firmed that his lab tested the 100, and 
gave it a clean bill of health on meeting 
the rules for radio interference. But he 
also said that, just as for other compu- 
ters, his technicians were measuring 
“spikes” around 2.4 MHz with many 
harmonics up and down the frequency 
scale. He said some were 10-12 times 
higher than other types of TV interfer- 
ence, but that standards for the home 
are generally more permissive than in 
other applications, especially those en- 


gaging flight regulations. For example 
— to this day, any radio or TV is banned 
from in-flight use on airlines. 


What The Airlines Say 

Only United Airlines has actually 
claimed any problem with on-board use 
of portable computers. But that one 
incident—true or not—has sparked the 
controversy. Joe Hopkins, a United 
spokesman, told The Wall Street Jour- 
nal that a portable computer “seemed 
to” cause a faulty reading on a plane’s 
navigational electronics. 

The airlines worry that the admit- 
tedly low-level radio frequencies emit- 
ted by portable computers might be 
picked up by one of a jetliner's several 
antennas mounted under the belly of the 
plane. 

Some people wonder whether a pas- 
senger typing on a portable computer 
might somehow alter the data flow in 
the plane’s navigational computers or 
cause enough interference to disrupt 
air-to-ground communications. The pro- 
blem right now is that no one has donea 
definitive study . . . especially with the 
possibility of multiple portables being 
used on the same plane. Would this 
“electronic cacophony” of so-called 


spikes somehow echo into aircraft avio- 
nics? The government wants to find out, 
with a special committee being set up by 
a federal advisory commission to the 
Federal Aviation Administration. The 
executive board of the Radio Technical 
Commission for Aeronautics voted on 
September 23 to look into the matter. 
The commission’s director of technical 
services, Bill Fuchs, says Radio Shack/ - 
Tandy sent him a copy of a Tandy- 
financed Ford Aerospace report on the 
Model 100% interference. “According to 
them, they have a clean bill of health as 
far as the aircraft application” is con- 
cerned, he said. 


Tandy’s Response 

The 40-page Ford Aerospace report 
was unavailable at press time, but Tan- 
dy’s engineering liason with the FCC, 
Dave Garner, told me “the only thing it 
says is that it meets the (FAA) standard 
160-A of the environmental conditions 
and test procedures for airbourne equip- 
ment”... (beyond complying with part 
15 and 68 of FCC regulations). It’s a 
very hazy area because the FAA doesn’t 
spell it out, and the guidelines are 20 
years old. For the record, FAA regula- 
tions currently prohibit any portable 
electronic device on an aircraft except 
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hearing aids, tape recorders, heart pace- 
makers, electric razors, and other devi- 
ces that airlines decide to permit—a 
very big loophole. Further, said Garner, 
“they (Ford Aerospace) concluded that 
it met the standard . . . now, whether 
there's any avionics problem or not, we 
have no statement to that effect." Re- 
flecting the company's confidence, 
Tandy still had TV ads in late Sep- 
tember showing an airline passenger 
with a Model 100. And, airlines like Pan 
Am, TWA, and Republic still permit 
portable computers. Radio Shack's ex- 
ecutive vice president for marketing, 
Bernie Appel, says his company will 
stay out of the fray, leaving the decision 
to the individualairline companies. But, 
he does maintain that Radio Shack did 
extensive testing on the 100 and didn't 
find any indication that the computer 
can pose a danger to air travel. 


Let's *look into" the Matter 

If you end up adding 8K RAM 
memory chips (who doesn't), ask the 
Radio Shack technician if you can 
watch. 1 did, and it was well worth it. 
The neatly laid-out main circuit board is 
a beautiful thing to behold, packed with 
ROM,RAM and the all-important Cen- 
tral Processing Unit, or CPU. This 
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Silverware - 4 games on cassette 


Scribe-Word Processor 
Formats & prints from text files. 
cassette $24.95 


battery-sparing chip operates with a 
“clock speed” of 2.4 MHz—in other 
words, it'll make 2,400,000 decisions, if 
you will, in a matter of one second. All 
this on-off switching is happening so 
fast, that electromagnetic waves are 
created . . . and that’s the crux of the 
issue. The navigational and auto-pilot 
computers that are on board a 747, for 
example, must create similar electro- 





"The airlines worry that 
the admittedly low-level 
radio frequencies emitted 
. might be picked up by 
one of a jetliner's several 
antennas..." 





magnetic disturbances. And, a look at 
these miniature marvels of avionics re- 
veals extensive use of metal housings 
and hard steel shells to protect against 
interference (and make them extremely 
durable). A look into the Model 100 
reveals no such metal housing around 
the CPU. One precaution was taken, 
however: a metal-foil-backed, soft- 
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Portable Computer Support Group 
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foam-rubber-insulated adhesive tape 
has been installed underneath the main 
circuit board. That’s more than enough 
to meet the current government stand- 
ards. Does Tandy intend to make any 
design changes, such as a metal box 
around the CPU? No, says engineering 
liason Dave Garner, “we don’t see any 
need for that right now.” On setting up a 
commission to study the potential prob- 
lem, Garner agrees “that sounds like a 
good idea . . . they ought to nail it 
down." 

In conclusion, all computers now 
being sold, portable or not, meet the 
government's current standards for 
radio interference. But no one ever fore- 
saw personal portable computers being 
taken on board airliners—especially 
since those standards were drawn up 20 
years ago. We need updated informa- 
tion, and maybe tougher standards, so 
that portable, battery-operated compu- 
ters can be used routinely by anyone, 
anywhere. Hopefully, the airlines' fears 
will be put to rest . . . just like they were 


with portable calculators. Or, if it takes 
a product modification by the manufac- 
turers, so be it. But it's clear that with 
the incredible popularity of portable 
computing, reliable answers must be 
found. 
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ave you ever selected a phone 
Н“ in your ADRS.DO file 

with the “Find” command in 
TELCOM, only to have to use the 
“Call” command to enter the number 
again because the area code in the 
number was the same as the one youare 
dialing from? Is “Find” in TELCOM 
useless to you at work because you have 
to dial a prefix (such as 9) to get an 
outside line? Have you ever wished you 
could automatically re-dial a number 
you selected in TELCOM, or keep cal- 
ling the number until it stopped being 
busy? 

Dialm8 provides a solution for these 
situations by adding powerful capabili- 
ties to the Model 100’s already impres- 
sive auto-dialing capability. It will run 
оп апу Model 100, and has a similar feel 
and command structure to TELCOM. 


How to setup Dialm8 

We assume you have formatted your 
phone number list in ADRS.DO to be 
compatible with TELCOM. With the 
addition of one or two definition lines in 
your file, you will be ready to use 





(Vance Socci is a computer consultant 
and partner in Intra-Cept Technolo- 
gies. A professional musician as well, 
he plays both keyboard and saxaphone. 
In one of his current projects he is work- 
ing to link the synthesizer keyboard 
directly to the computer.) 
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Dialm8. 

First, Dialm8 must know what area 
code the numbers in your directory have 
if the number is only seven digits long, 
that is, if you have left out the area code. 
To do this, insert a line at the beginning 
of your ADRS.DO file in the form 
“DA=area code,” where area code is the 
area code of your seven digit numbers. 
For example, if you lived in area code 
201, the line to insert would be DA=201. 
Do this in column one of the beginning 
of ADRS.DO. (The quote characters in 
the examples are not to be entered on 
the line.) The “DA=” must appear in 
column one of the line, or it will not be 
recognized. If you leave out this line, 
Dialm8 will assume you live near where 
it was born, which is area code 408. 

Next, an optional prefix definition 
line can be inserted. Dialm8 inserts the 
text defined in this line for every call, 
unless the prefix is overidden by the 
“Pref” command. If this line is not pres- 
ent, a blank prefix is set. The prefix line 
has the form “PR =prefix text.” For 
example, “PR=9=” in column one is the 
line necessary to have the default prefix 
be 9 followed by a two second wait 
(caused by the —). 


Running Dialm8 

Now that you have set up your 
ADRS.DO file, run Dialm8, which will 
show its top level commands on the 


label line. Commands may be entered 
either via the keyboard or by depressing 
the corresponding function button. 

Data given to the command (for 
example, the phone number for the Call 
command) is entered after the com- 
mand with a space between the com- 
mand and the data. Pressing ENTER 
then causes the command with its data 
to be executed. For example, “Call 
5551212” will tell Dialmó to dial 
5551212. 

The operation of Dialm8 is analo- 
gous to that of TELCOM for voice 
calls. Computer calls will still need to be 
done through TELCOM, as Dialm8 
doesn't implement the terminal simu- 
lation. 

The Find command functions identi- 
cally to the corresponding TELCOM 
command. It will find successive occu- 
rences of the string you enter and give 
you the options of Call, More, or Quit. 
The Find command ignores the case of 
alphabetic characters like TELCOM 
does in the search string. The only func- 
tional difference from TELCOM is that 
Dialm8 inserts the prefix string and 
either adds or deletes the area code, as 
required. 

The Call command functions identi- 
cally to the corresponding TELCOM 
function, except that a blank argument 
will redial the last number dialed (this 
number is reset when leaving Dialm8 
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auto-dialer. You can even write your own BASIC pro- 
grams! In addition, Model 100 features a full-size 
typewriter keyboard, is powered by batteries or op- 
tional AC adapter, and retains all data with power off. 


Complete Telecommunications 

The Model 100 minimizes the inconvenience of 
business travel. With an optional cable, plug 
Model 100 into any modular phone jack and use its 
built-in auto-dial modem to access national informa- 
tion services. Or send back any text files to your office 
computer so typed copies can be ready to sign upon 
your return! You could, if you wish, wait until you 
return and connect Model 100 to an optional printer 
via its parallel interface. 


Model 100 also features a cassette port for our 
ready-to-run programs, plus an RS-232C interface to 
connect the Model 100 directly to another com- 
puter—micro, mini or mainframe. 


Find Out More 


Visit your nearest Radio Shack Computer Cen- 
ter, participating store or dealer for a demonstration 
of the revolutionary TRS-80 Model 100. 
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Mail То: Radio Shack, Dept. 84-А-727 
300 One Tandy Center, Fort Worth, Texas 76102 














with the Exit or Menu commands). As 
in the Find command, Dialm8 adds the 
prefix and doesarea code processing on 
the number. 

The Pref command overrides the pre- 
fix specified in the ADRS.DO com- 
mand, if any. A blank argument to the 
command will result in no prefix. 

The Area command tells Dialm8 the 
area code you are dialing from. When 
Dialm8 first runs, it sets your dialing 
area code to your default area code as 
specified in the ADRS.DO file. 

The Busy command, which accepts 
an argument of the number of seconds 
between redials, will set things up so 
that the next number you call will be 
redialed over and over until you hit the 
spacebar. This is intended to be used 
when getting through to a chronically 
busy number. Set the busy timer long 
enough for the call to go through so you 
can determine if it’s still busy. If it is, just 
let Dialm8 dial the number again. If it 
isn’t, immediately press the spacebar 
before the dialing starts again and you 
will get the “Dial” prompt. At this 
point, your call will either be ringing or 
answered. The effects of the busy com- 
mand only last for one call. Further 
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YES! Sign me up for a year (12 issues) of Portable Computing 


O MasterCard 


busy mode calls will need separate Busy 
commands to setup the cycle time. 


Program Description 


115 Load case conversion 
program 
120-144 Setup default area 


code and prefix from 


ADRS.DO 

150-200 Setup screenand function 
keys 

210-230 Command scanner 

240-385 Find Command and sub- 
menu 

400-420 Find command phone 
number extraction 

500-605 Phone number pre- 
processing (add/ sub- 
tract area code, add pre 
fix) 

610-800 Setup for call to 
ROM dialing routine 

900 Call to ROM dialing 
routine 

920-1000 Busy cycle loop 

1900-2400 Routine to convert 
X$ to upper case 

4000-4110 Menu and Exit com- 


mands 


State 


о American Express 


4300 


60000-60300 


60400-61000 


Variables: 


X$, Y$, AS 
PH$ 


Your Perfect Portable Companion 


Now, ћеге'5 your opportunity to have PCM — The Portable Computing Magazine delivered to your home 


PCM will bring you the finest and most up-to-date information available anywhere for your TRS-80 
Model 100 Portable Computer. Whether your interest is programming, using the Portable Computer's 
fabulous built-in functions or communicating with other Portable owners, PCM is for you. 

Each month we'll bring you a host of articles, ready-to-run programs for business and professional use or 
just plain fun. And each article will be in an easy-to-read style...not computerese. 

Subscribe to PCM today! A dozen issues are only $28 ($35 in Canada and Mexico). 


ШИ ПТИЦ ИЛИ ИИ ы ыы ыы 


РСМ — Тһе Portable Computing Magazine 


Interbank # (MC only) 


Card Expiration Date 


Subscriptions to Portable Computing are $28 a year in the United States. 
Canadian and Mexican rate is U.S. $35. Surface rate elsewhere U.S. $64. Air mail 
U.S. $85. All subscriptions begin with the current issue. Please allow 5-6 weeks for 


aE 
VISA’ 
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Routine to restore 
function keys, clear 
screen 

Assembly language 
routine to convert 
lower to upper case to 
decrease Find com- 
mand scan time. 
Subroutine to allocate 
free memory and load 
the assembly language 
routine into it 


String temporaries 
Argument to 
commands 

Phone number for 
600 

Prefix 

Default Area 

code of ADRS.DO 
Current dialing area 
code 

Address of assem- 
bly language case 
conversion routine 
Repeat loop count for 
BUSY 















(502) 228-4492 


Zip 





The listing: 


100 ‘DIALMB by Vance Socci 

115 GOTO 60000 ‘Setup case conversion 
120 04%="408" : Default Area Code 

122 OPEN "ADRS.DO" FOR INPUT AS 1 

124 IF EGF(1) THEN 150 

126 LINE INPUT41,X$ 

128 IZ=INSTR(1,X$,"=") 

138 IF 17=0 THEN 124 

132 Y$=LEFT$(X$,2) 

154 IF Y$="DA" THEN DAS=RIGHTS(X$,LEN(X$ 
)-3):6070 124 

136 IF Y$="PR" THEN P$=RIGHT$(X$,LEN(X$) 
=3) 

140 AC$=DA$ 

144 CLOSE 1 

150 SCREEN @,@:CL 

160 KEY 1,"Find " 

162 KEY 2,"Call " 

164 KEY 5,"Ргеф " 

166 KEY 4,"Area " 

170 KEY 5,"Busy " 

172 KEY 6,"" 

175 KEY 7,"Exit"*CHR$ (13) 

177 KEY 8,"Menu"+CHR$ (13) 

18@ SCREEN @,1 

200 LINE INPUT "Dial:";X$ 

205 IF X$="" GOTO 200 

210 GOSUB 1900 : CONVERT TO UPPER CASE 
212 PH$z"":IF LEN(X$)<¢6 THEN 217 

215 PH#=RIGHT$(X$,LEN(X$) -5) 

217 X$=LEFT$(X$,4) 

220 IF X$="CALL" THEN 500 

221 IF X$<>"BUSY" THEN 225 

223 IF PH$="" THEN RPZ=108@ ELSE RPZ=VAL 
(PH$) +180 

224 GOTO 200 

225 IF X$="PREF" THEN P$=PH$:GOTO 200 
227 IF X$="AREA" THEN AC$zPH$:1G0TO 200 
228 IF X$="MENU" THEN 4000 

229 IF X$z"EXIT" THEN 4180 

230 IF X$<>"FIND" THEN PRINT"?":GOTO 200 
235 CLOSE 1 

240 OPEN "ADRS.DO" FOR INPUT AS 1 

250 IF EOF(1) THEN 158 

260 LINE INPUTS1,X$:Y$z2X$:CALL P,@,VARPT 
R(X$) 

280 IZ=INSTR(1,X$,PH$) 

290 IF IX=0@ THEN 250 

300 PRINT Y$ 

320 KEY 2,"Call"*CHR$(13) 

330 KEY 3,"More"+CHR$(13) 

340 KEY 4,"Guit"*CHR$(13) 

550 KEY 1,"".KEY S,""1KEY 7,""1KEY 8,771 
SCREEN 8,1 

368 AS=X$:LINE INPUT X$:CALL P,8,VARPTR( 
X$) :Y$z0$:5$2X$:X$2Y$ 


370 IF A$z"CALL" GOTO 400 

388 IF AS="QUIT" GOTO 150 

385 IF A$z"MORE" GOTO 25@:ELSE 360 
400 IZZINSTR(1,X$,":") 

410 IF I%=@ THEN 200 

420 PH$zRIGHT$(X$,LEN(CX$) - I2) 

500 IF PH$z"" THEN PH$=LN$:GOTO 610 
510 IZ=INSTR(1,PH$,":") 

520 IF IX20 THEN PHf$sPH$*"i:":80T0 540 
530 PH$-LEFT$(PH$,12) 

540 IF LEN(PH$)>8 THEN 580 

S50 IF AC$-DA$ THEN 600 

S60 PH$=DA$+PH$:GOTO 500 

580 IF LEFT$(PH$,3)2AC$ THEN PHS$=RIGHTS ( 
PH$,LEN(PH$) -3) 

5600 PH$=P$+PH$ 

685 LN$=PH$ 

618 M-VARPTR(PH$) 

700 Ар=РЕЕК (М+1 ) +PEEK (M+2) #256 

800 PRINT"Calling. . ." 

900 CALL 21293,8,AD 

920 IF RPZ=8 THEN950 

938 FOR I4=1TORP% 

935 IF INKEY$z" " THEN 958 

937 МЕХТІХ 

940 GOTO 900 

950 PRINT"" 

960 КР 

1000 GOTO 150 

1900 CALL P,@,VARPTR(X$) 

2400 RETURN 

4000 GOSUB 4300 

4010 MENU 

4100 GOSUB 4300 

4110 END 

4300 CALL 23164,0,23366 

4400 CALL 27795 

4450 SCREEN 0,8 

4500 RETURN 

50000 ‘Mini assembly code loader 
60308 DATA78,35,126,35,102,111,126,254,9 
7,218,-20,0,254,123,210,-20,0,214,32,119 
'35,13,208,195,-6,0 

60400 С2- 26 

68418 P=MAXRAM-C% 

68420 CLEAR 1000,P-1 

60438 CZ= 26 

60440 P=MAXRAM-C% 

60520 0=P 

0200 FOR IX=iTOCX:READ XX 

60620 IF XZ>=0 THEN POKE 6,Х%:0=68+1: 8070 
60650 

68638 R=P-X% 

60648 POKE 0, (R/256-INT(R/256) ) #254: POKE 
Q+1,INT(R/256) 

60645 0=0+2: КЕАЮ XZ:IZ=IZ+1 

60650 NEXTIZ 


610800 GOTO 120 РСМ 
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p By Ronald Paludan 


Ж VORHIO Appending PoCo Files 
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e LOWER PRICES 
LÀ e LONGER LENGTHS 


DATA TRAC C-06, C-12, C-24 


From the leading supplier of Computer | СА55ЕТТЕ 
Grade Cassettes, new, longer length C-12's ИЛЕР CADDY 
(6 minutes per side) provide the extra few 
feet needed for some 16K programs. 


Premium 5-screw shell with leader 
— BASF tape 


Internationally acclaimed. 


Thousands of repeat users. 
c Error Free e Money back Guarantee 


ж 500 C-12’s—38¢ each. „ль 


Shipping 517.:500 add 4¢ 
- BASF Qualimetric Flexi-Disc—Lifetime Warranty. о. 
514" Single Side. Double Density, Soft-Sectored. + 


500 Boxes 136 ea. е shipping 510.:500 
Get MICRO CASSETTES in convenient short lengths. 
p MC-10 | Same superior tape in premium shell 
YS e МС-20 | WITH LEADERS. Supplied complete with 

oa MC-30 | box (fits Epson & Sharp micro drives). 
w Call: 213/700-0330 "а MMEDIATE SHIPMENT > 
ORDER [MAIL TO: YORK IO" Comouteruare 
NOW ..../ 9525 Vassar Ave. #P3, Chatsworth, CA 91311 


Ұс == == == => == == ORDER FORM m mm am m ш= == == wg 










cassettes w/o boxes 
Includes edge labels 
and Index card 





TRACTOR FEED 
*DIE-CUT BLANK 
CASSETTE LABELS 











































































в 1 DOZEN 2 DOZEN TOTAL и 
koc Each std. cassette 
I includes two YORK 10 
labels only. Boxes are 
3 sold separately. We i 
prefer to ship by UPS 
q as being the fastest and 
safest. If you need ship- 
| Storage Caddy @ $2 95 ea Qty ment by Parcel Post. || 
Flexi-Disc 77 26.95/10 7) 120.00/50 | | check here O 
Ñ [Micho CASS. íDOZEN 2 DO |__| NOTE: Additional 1 
5 0 32 charges outside 48 || 
І Continental States 
М Shipments to АК, НІ, 
ÉL — — — suro | d USA possessions 
go by Priority Mail; 
p [Genevae aea _____________ Quq Mexico E 
SHIPPING/HANDLING _ Any quantity (except 500 special) Airmail 
lI Outside 48 Continental States— Additional $1 per caddy All others— Sea Mail i 
per doz. cassettes; per doz. boxes; per 10 discs 
|| TOTAL il 
Check ог MO. Charge to 
ИШ ове) — Crest Сага С) VISA [J MASTERCARD #P3 i 
i ПІ PLEASE SEND QUANTITY DISCOUNTS a 
4 Card Мо. — - Te = Exp. t 
g Name "- š 2 l 
|| Address __ = oP i 
I City — > = State/Zip A 
Signature ___ = РПП, Í 
і Computer make & model ___ Disk? (y/n) ___ 
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text files or merge two separate BASIC programs.This 

can easily be accomplished by a simple BASIC pro- 
gram called A PPND. The trick is to use the APPND mode 
when operating a file. 

To operate the program, RUN it and respond to ‘FIRST 
FILE?' by entering the file name that you want to append 
onto. Answer 'SECOND FILE?' with the name of the file 
that you want to append onto the end of the first. When the 
APPND program is done, the combined file will be stored 
under the first filename. 

In order to merge two BASIC programs, you must SAVE 
both of them in ASCII format (SAVE"RAM:filename" 
,A). The APPND program will append the second program 
onto the first. Next, load the newly merged program from 
BASIC using the filename of the first program (LOAD*- 
'RAM:filename"). The line numbers will automatically be 
placed in the proper order. Note that if a program line in the 
second program matches a line in the first, the line from the 
second program will replace the first. 


Е: ме тау find а need to append two 


Here, in Figure 1, are two programs before merging. 
Program one was stored under the filename *PROGI.DO" 
and program two under “PROG2.DO”. 


Figure 1 


(PROGI.DO) 

10 REM PROGI LINE 10 
20 REM PROGI LINE 20 
30 REM PROGI LINE 30 


(PROG2.DO) 

I5 REM PROG2 LINE 15 
25 REM PROG2 LINE 25 
30 REM PROG2 LINE 30 


After using APPN D and loading PROGI into BASIC, the 
two programs have been merged (Figure 2). Line 30 from 
PROG2 has replaced line 30 in PROGI. 

Figure 2 


10 PROGI LINE 10 
15 PROG2 LINE 15 
20 PROGI LINE 20 
25 PROG2 LINE 25 
30 PROG2 LINE 30 


I hope this program saves many of you from redundant 
typing. 
The listing: 


18 CLEARS@@:MAXFILES=2: INPUT"FIRST FILE" 
SF1$1INPUT"SECOND FILE";F2$:F1$z"RAM:" 

20 OPEN F1$ FOR APPEND AS 1:0PEN F2$ FOR 
INPUT AS 2 

30 LINE INPUT#2,A$:PRINT#1 , AS 

40 IF ЕОҒ (2) ТНЕМ CLOSE ELSE 50 








PREPARE YO 
EXPENSE REI 
WITH 
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BY DONALD J. HANSON 


hen Tandy first introduced 
the Model 100, I saw it as the 
perfect companion for the tra- 


veling business person. The Model 100’s 
firmware provides the note taking, ap- 
pointment scheduling, address filing, 
and telecommunications capabilities 
the average business traveler requires. 
One function that is missing is a pro- 
gram for the maintenance of a company 
expense report. While the manual hints 
that SCHEDL could be used for this 
application, I felt a dedicated program 
could better serve my needs. The result 
is EXPNSE. 

EXPNSE is a menu-oriented BASIC 
program which will maintain two ex- 
pense reports. Each report can have 11 
categories for each of seven days. The 
daily and category totals can be dis- 
played on the LCD screen and a report 
with all entries and totals can be output 
to a printer (LPT:) or to a RAM file 
(REPORT.DO). The RAM file can 
then be edited via TEXT or transmitted 
to the office via TELCOM. 

EXPNSE can be broken down into 
seven modules. The first module (lines 
10—1520) explains the function of the 
program, defines the variables and di- 
mensions arrays. Three arrays are used 
within the program. The first array, 


NC(C), is a string array which is used to 
define the expense categories within the 
report. The days used in the report are 
defined in a string array called ND(C). 

The expense data array, E(D,C), is a 
double-precision, two-dimensional ar- 
ray used to store all of the expense 
report data. This array can best be visu- 
alized as a spreadsheet with the expense 
categories as columns and the days as 
rows. The variable D points toa specific 
day and the variable C points to a spe- 
cific category. 


Primary Menu 

The program’s primary menu (2000— 
2280), provides access to four functions: 
data entry, display of totals, report 
printing, and ending the program. The 
desired function is selected via the IN- 
PUT statement in line 2180 and then 
routed via the ON ... GOTO statement 
in line 2230. Any non-valid entries will 
be trapped and will cause an error sub- 
routine to be called and the menu to be 
redisplayed. 


Subroutine Library 

The next module Га like to discuss is 
the last one (7000—8760). This module 
is a Subroutine Library which contains 
seven subroutines which are called by 
the other program modules. The first 
routine (7080—7230) beeps and dis- 






plays the message "INVALID SELEC- 
TION." It is called whenever a non- 
valid menu entry is selected. 


File Loaded? 

The routine in lines 7250 to 7360 
checks to determine if one of the two 
data files (WEEKI.DO and WEEK2. 
DO) has been loaded into the array 
E(D,C). The status of the file loaded 
flag (L) will be equal to | when a file is in 
memory. If a file has not been loaded, 
this routine will call the select and load 
file routine at 7380— 7870. 


Select and Load 

The Select and Load File routine beg- 
ins by resetting the file selected variable 
(FS) to zero. Lines 7480 through 7550 
display the menu which allows us to 
select the file we wish to load, WEEKI 
or WEEK2. The Invalid Selection rou- 
tine is called in the case of a non-valid 
menu selection. 

Once a file has been selected, the rou- 
tine will assign a file name to the varia- 
ble NF and will check to see is that file is 
currently in RAM. It does this by 
attempting to open the file for input in 
line 7660. If the file does not exist, a 
“File Not Found” error will be gener- 
ated and program control will transfer 
to line 7950 (Create File) as defined by 
the ON ERROR statement in 7650. 
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If a data file already exists in RAM, 
the program will begin to load the file 
into the array E(D,C). This section of 
code begins by checking to see if we are 
at the end of the file (7710). This line is 
necessary for those times when we allo- 
cate a file for the first time for the pur- 
pose of entering data. If this line were 
not present, the program would gener- 
ate an “Input Past End of File” error 
(54) because the newly allocated file has 
no data in it. 

Lines 7730 through 7780 consist of a 
FOR-NEXT loop which loads the data 
file into the array E(D,C). Since we 
know how much data we write to the 
file, it is not necessary to check for the 
end of the file. After the file has been 
loaded the file loaded flag (L) is set to 
one(1)and the file saved Паг (S) is set to 
опе (1). 


Create а File 

The Create File subroutine (7890— 
8120) allocated one of the two data files 
(WEEKI.DO or WEEK2.DO) when 
the selected file does not exist. The pro- 
gram checks to see if error 52 (File Not 
Found) has been generated (7980). If 
any other error is generated, the pro- 
gram branches to line 8050, beeps, prints 
anerror message, and aborts. If an error 
52 is detected, the selected file is created 
by opening it for output and then clos- 
ing it (7990—8010). Program control 
will then transfer back to line 7650 and 
the program will attempt to load the 
data file into the array. Since the newly 
created file has no data, program con- 
trol will transfer back to the enter data 
module. 


Items Totaled? 

The Check Totals Flag routine (8140— 
8240) checks the status of the totaled 
flag T. Any time the array totals are 
calculated, T is set to one. If data is 
entered after this calculation, the flag is 
reset to zero, indicating that the totals 


must be recalculated. If recalculation is 
necessary, this routine will branch to the 
Calculate Totals routine at 8260—8600. 


“The program’s 
primary menu 
provides access to 
four functions: data 
entry, display of 
totals, report print- 
ing, and ending the 
program.” 


Calculate Totals 

The totaling routine begins by zero- 
ing all existing totals (8340— 8410). This 
is necessary to prevent the old totals 
from being added to the new totals. 
Zeroing is accomplished through a FOR- 
NEXT loop, which sets each of the cate- 
gory 11 totals and each of the daily 
seven totals to zero. The routine then 
uses additional FOR-NEXT loops to 
calculate the daily totals (8420—8470), 
the category totals (8480--8530) and 
the grand totals (8540—8570). The rou- 
tine ends by setting the Totaled Flag (Т) 
to one. 


Display Category Totals 

The last subroutine in the library is 
only called by the Display Totals mod- 
ule. It is located at lines 8620—8760 and 
is used for displaying menu titles in the 
Display Totals mode. 


Data Entry 
Data entry is accomplished through 


8K MEMORY MODULES FOR THE 
TRS-80 MODEL 100 PORTABLE COMPUTER 


$85 each, 2 or more $80 each 
Exact Replacements for RS Memory 


Easy To Install e Warranty Included 


the Enter Data module at lines 3000— 
3860. When selected, this module begins 
by branching to the File Loaded? sub- 
routine at 7250. After a data file has 
been loaded or created the program will 
reset the totaled (T) and saved (S) flags 
indicating that new data has been en- 
tered and must be recalculated and 
saved prior to ending the program. 

The Enter Data module displays a 
menu (3140—3270) which allows the 
user to enter data for a specific day, or 
allows them to return to the primary 
menu. The program utilizes the user’s 
selection (3250) to calculate the day 
pointer (D) for array E (3290). It will 
then check to see if the user has selected 
a valid menu item (3310). 

Once the user has selected to enter 
data fora given day, the program enters 
a data entry loop (3380—3520). The 
loop first checks to determine if any 
previous data has been entered for this 
day and category (3430). This is ac- 
complished by checking to see if the 
value E(D,C) is anything other than a 
zero. If the value E(D,C) does not equal 
zero, the program assumes that pre- 
vious data has been entered and branch- 
es to line 3620. 

If E(D,C) equals zero the program 
will prompt the user to enter data for 
that category (3440—3490). At this 
point valid data may be entered, or the 
user can return to the day selection 
menu by entering a negative number 
which will exit the loop (3510). If valid 
data is entered, it will be loaded into the 
array (3490) and the program will re- 
turn to the top of the loop (3380) and 
request data for the next category. The 
loop will prompt the user for each cate- 
gory and when exited (3510) or com- 
pleted (3540) will return to the Day 
Selection menu (3120). 

If the loop detects previously entered 
data (3430), E(D,C) does not equal 
zero, the program will branch to line 
3620 where the existing data will be dis- 


VISA and MC Accepted • CA Residents Add 6.5% Sales Tax 


IOTA SYSTEMS • 1690 Day Valley Road * Aptos, CA 95003 • (408) 684-0482 
Prices Subject To Change Without Notice е TRS-80 is a trademark of Tandy Corporation 
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Ask your dealer for the Porta™ series 
from Skyline—to help you work faster and better! 


PortaCalc'" — Model 100 "electronic spreadsheet” with 14 column by 26 row workspace! 
Full. use of the built-in function keys to save, load, screen print, report print, or to look 


Full arithmetic operators including ниво ла пето, absolute маше, integer, summation, 
and averaging. Calculations are done to 14 digits of precision and displayed up to 9 
digits. User selectable decimal place from none through seven—not just one, two, or 
floating! Formula replication is included to allow fast creation of worksheets. 


Worksheets тау be saved, loaded, or merged using the computer's memory or 
cassette. Often used templates can be saved in memory for instant recall. 


Two powerful utility programs are included with PortaCalc at no extra 
charge! PortaDex"" is a data exchange program that allows reformatting 
PortaCalc files into the DIF format used by VisiCalc. PortaPrint'" is an 
enhancement to the Model 100's text editor, adding the ability to adjust 
left, right, and top margins, and page length. Page numbering, headers, 
centered lines, flush right justification, new page control, and more. 


Comes with extensive documentation in padded 3-ring binder. Includes 
tutorial, detailed reference section, and executive level sample templates. 
Fully illustrated with screen prints, examples, and hints. 


PortaStat'" — Correlation, regression analysis, and descriptive statistics 
package, designed to be a working tool for today's businessman. 

Data can be input from cassette, memory, or keyboard. Interactive with 
PortaCalc data files! Thoroughly documented, includes tutorial. 


PortaFin'" —Present value, net present value, future value, annuities, 
interest factors, loan constants, internal rate of return and more! This user- 
friendly package prompts you for the needed input data, then gives you 
the answer to your loan or investment problem! Interactive with PortaCalc 
files, allowing you to "read" cash flow data from memory. Keyboard or 
cassette input also available. 


PortaMax'" — The powerful ‘simplex’ method of linear programming. Find 
the optimum 'mix' for a given set of constraints. Interacts with PortaCalc 
files to avoid time-wasting repetitive data entry. Tutorial, examples, and 
bibliography included. 

PortaFolio'" — Stock and bond valuation, betas, Macaulay's duration, yield 
to maturity, bond swap calculations, and much more. All in an easy to use 
program, interactive with PortaCalc data files. Supplied with comprehensive 
instructions and reference manual. 


PortaCalc 


All Porta series programs are supplied on cassette and require 24K RAM. 
Pricing — PortaCalc is $69.95, all others are $44.95 each. 

If ordering direct, add $2.00 shipping and handling per order. 

Dealer inquires invited. 





Model 100 is a trademark of Tandy Corp. VisiCalc is a trademark of VisiCorp. DIF isa trademark of Software Arts 
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2 games packages for your 
relaxation and enjoyment: 


MODEL 100 Games #1 


Blockade - Your ‘snake’ grows longer 
as you hit the randomly appearing 
targets on the screen! A one or two 
player real-time game. 


Reversi - Outflank your opponent! Play 
against the computer or another human. 


Frankenstein Adventure - Find all 
of the necessary equipment to awaken 
the monster. 


Alexis Adventure - Sail the seas and 
traverse the islands to recapture your 
kingdom. 


MODEL 100 Games #2 


Maximum - Outscore your opponent 
or the computer by taking the higher 
point squares and leaving a low point 
choice for them. 


Checkers - The classic game! Play 
against the computer or against a 
human or have the computer play itself! 


Amazing Chase - Outrun two pur- 
suers in a maze in this real-time game 
with optional sound. 


Williamsburg Adventure - Steal, 
eat, shoot, and laugh to find the golden 
horseshoe! 


Choose either of the games packages for 
only $24.95! 


- a lot of software for a little silver 


See your dealer or: 
Write or call us direct at PO. Box 21101, 
Santa Barbara CA 93121 (805) 966-1449 
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played and the user will be asked if they 
wish to change it. An answer of *N" or 
"n" will return to the top of the loop 
(3730) and the next category. An answer 
of *Y" or *y" will cause the program to 
prompt the user to enter a new amount 
(3760—3840). Once this is done the 
program will branch back to the top of 
the data entry loop (3520). 


Display Totals 

The Display Totals module (4000— 
4500) will display the daily and category 
totals in three screens of information. 
When first selected, the program will 
branch to the File Loaded subroutine 
(7300) and will check to see if a file is 
loaded and will load one if necessary. 
The next routine called is "totaled?" 
(8210) which checks to see if the totals 
must be recalculated. If this is the case, 
the Calculate Totals routine (8260) will 
be called. Once totals have been calcu- 
lated, the program will display the daily 
totals in the first screen of information 
(4120—4280) and the category totals in 
the two succeeding screens (4300—4500). 
The category totals are displayed with 
the aid of the subroutine at (8620— 
8760). The program is paused after each 
screen by using an INPUT statement 
with the dummy string variable A. After 
the last screen has been displayed, the 
program will return to the primary 
menu (2060). 


Print Report 

The Print Report module (5000—5670) 
allows the user to print an expense 
report at the printer (LPT:), or to a 
RAM file called REPORT.DO. When 
this module is selected, it begins by util- 
izing the Subroutine Library to deter- 
mine if a file has been loaded and if 
totals need to be recalculated. The pro- 
gram then displays a menu (5120— 
5200) which allows the user to select the 
desired output device. This selection 
assigns the proper value to the name of 
output device variable number (5240, 
5270). Once selected, the program 
prompts the user for their name (5300) 
and the date (5340) as it is to appear on 
the report. 

The printer is treated as an output file 
to allow one program segment to print a 
report to LPT: and to RAM. This pro- 
gram begins by opening the selected 
output file (5420) and then prints a 
report title (5440—5500). The FOR- 
NEXT loop at 5520 through 5540 reads 
thearray E(D,C) and prints out the first 
six categories of the report. The loop at 
5610—5630 prints the remaining report 
categories. After printing, the program 
will return to the primary menu. 


End Program 


The last section of the program is the 
END module (6000—6410). It begins by 
checking the status of the File Loaded? 
flag (L) to determine if a data file is 
loaded (6120). If a file is not loaded, the 
program ends and returns to the Model 
100 menu (6380—6410). If a file is 
loaded (L=1) the program will ask the 
operator if they wish to have that file 
deleted from RAM (6140—6180). When 
the operator answers “Y” or “y” the file 
will be killed (6360) and the program 
will end. Any other response to this 
question will cause the program to 
check the status of the File Saved? flag 
(S) (6200). If the file does not need to be 
saved (S-1) the program will end. When 
the file must be saved, it will be accomp- 
lished through the FOR-NEXT loop in 
lines 6270 through 6330. Once saved, 
the program will end and control will 
return to the Model 100’s main menu. 


Summary 

In the process of writing EX PNSE, | 
discovered a peculiarity in Model 100 
BASIC which may be of interest to oth- 
ers. You'll notice that the format for the 
PRINT USING statements in lines 41 30— 
4190 and 4310—4360 is specified by a 
string variable. Conversely, the format 
specification for the PRINT USING 
statements in lines 5490, 5530, 5580, and 
5620 is literal. All of the PRINT USING 
formats started out being defined by 
string variables, but for some reason the 
statements in lines 5490,5530,5580, and 
5620 had a tendency to generate errors. 
This same code generated different er- 
rors on different occasions. Two com- 
mon errors were “Type Mismatch” and 
“Out of Memory.” On the occasions 
when the program did not abort due to 
an error, the program would print 
REPORT.DO but part of it would be 
garbage. 

When one encounters a program er- 
ror, the first thing to suspect is the code. 
After double checking the code and try- 
ing the program in another 100, I still 
couldn't get things to work, so I re- 
ported the problem to Tandy. At the 
same time I developed a short set of 
code which would duplicate the prob- 
lem and left it on CompuServe's Model 
100 SIG. A gentleman named Bob Lakin 
left me a message indicating that the 
problem had something to do with the 
maximum allowable record size in 
RAM. He suggested that 1 change the 
string variable to a literal and sure 
enough, it solved the problem. A big 
thank you to Bob! 

After looking through the Model 
100's manuals, I discovered that the use 


of string variables for format specifiers 
was not documented with the PRINT 
USING statement. Whether this was an 
oversight or whether it’s not permitted 
is hard to say. Obviously the strings 
work in some cases. Hopefully, Tandy 
will provide a solution soon. 


I have found EXPNSE to be very 
useful on business trips and I hope oth- 
ers find it equally helpful. Changing the 
program to meet the specific needs of 
your company expense report should be 
quite easy. If any of you have questions 
or comments on EXPNSE, please feel 


free to leave me a message on Compu- 
Serve via E-Mail or the Model 100 SIG. 
NOTE: For the sake of memory conser- 
vation and ease of typing, a condensed 
listing of EX PNSE follows this expand- 
ed, explanatory version. 


The listing: 500 REM selected for the data being 
51@ REM entered. 

10 REM EXPNSE V1.9  16JULY83 520 REM 
28 КЕМ Donald J. Hanson [71435,1465] 530 REM QS is used to indicate which 
50 REM Copyright 1983 All Rights Reserv 540 REM output device has been 
ed 550 REM selected for the printing 
40 КЕМ A program to maintain up to two 568 REM of the report. 
58 REM weekly expense reports on a 578 REM 
6@ REM TRS-88 Model 188. The program 580 REM D points to the proper day 
70 REM allows the user to enter data, 590 КЕМ within the array, 
80 REM display totals, and print ап 500 REM 
90 REM expense report. Data is stored i 61@ REM C points to the proper 
n 628 REM catagory within the array. 
100 REM two RAM files; МЕЕК1.00 and 638 REM 
110 КЕМ WEEK2.D0. The entire report is 648 REM S is used to indicate if the 
120 REM represented in memory as the 658 КЕМ array needs to be saved. 
13@ REM array E(D,C); where D indicates 668 REM 
148 REM the day and C indicates expense 678 DEFINT C, D, F, L, М, 0, 5, T 
150 REM catagory 680 REM 
150 REM 690 REM Define Double Precision Variable 
170 REM Define number of Files s 
180 MAXFILES=2 708 REM 
198 REM 710 REM E(D,C) is the array used to 
208 REM Define INPUT/DUTPUT Buffers 720 REM represent expenses. 
210 REM Buffer #1 = Input 730 REM 
220 REM Buffer #2 = Output 740 REM Define String Variables 
238 REM 750 REM 
240 REM Define Integer Variables 760 REM ND(D) is used to define days. 
250 REM 778 REM 
260 REM T is used as a flag to 780 REM NC(C) is used to define the 
270 REM indicate if totals have 790 REM expense catagories. 
280 REM been calculated. T is set 800 REM 
290 REM to 1 after a calculation 810 REM NF is the name of the data file 
300 REM has been performed. T is 820 REM to be used. 
318 REM set to 0 when new data is 830 REM 
320 REM entered 840 REM N is the name of the person 
330 REM 850 REM filing the expense report. 
340 REM L is used as a flag to 860 REM 
550 REM indicate if a data file has 870 REM A is a dummy variable used 
360 REM been loaded. 880 REM with an INPUT statement. It 
370 REM 890 REM is used to halt the screen 
380 REM MS Indicates which function 900 REM display. 
390 REM has been selected from the 910 REM 
400 REM primary menu. 920 REM W is used to indicate the last 
410 REM 950 REM day of the week for the 
420 REM SD is used as a counter for a 940 REM given expense report. 
430 REM screen delay routine. 950 REM 
440 REM 950 REM NO represents the name of the 
450 REM FS is used to indicate which 970 REM output device for the PRINT 
468 REM data file has been selected 980 REFORT module. 
470 REM as input. 990 REM 
480 REM 1000 КЕМ Р1-2 are PRINT USING formats. 


490 REM DS is used to indicate the day 


1010 REM 
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1020 REM PI is used to enter display 1530 NC(4)="TAXI,BUS" 


1030 REM INVERSE mode, 1540 МС (5) = "РААК, TOLLS" 
1040 КЕМ 1350 NC(6)="BREAKFAST" 
1050 КЕМ PN is used to enter display 1350 NC(7)="LUNCH" 
1060 REM NORMAL mode. 1378 NC(8)="DINNER" 
1070 REM 1380 NC(9)="ENTERTAIN" 
1080 DEFSTR A, N, P, W 1390 МС(10)-"МІСС." 
1090 REM 1400 NC(11)2"DLY TOTAL" 
1100 REM Set up PRINT formats 1410 REM 
1110 Pi="\ V $$###. HH” 1420 REM Define Day Array 
1120 P2="\ \ #98. #9" 1430 М0 (0) = "50м" 
1130 REM 1440 ND(1)="MON" 
1140 REM Set up PRINT escape sequences 1450 ND(2)="TUE" 
1150 REM Print in Inverse Mode 1460 ND(3)="WED" 
1160 PI=CHR$(27)+"p" 1478 ND(4)="THU" 
1170 REM Print in Normal Mode 1480 ND(5)="FRI" 
1180 PN=CHR$(27)+"q" 1490 ND(6)="SAT" 
1190 REM 1500 ND(7)="TOT" 
1200 REM Dimension Arrays 1510 ND(8)="DAY" 
1210 REM Expense Item Array 1520 REM 
1220 DIM Е(7,11) 2000 REM ОКЕАНЕ КИНЕ eee OHIO EEE 
1230 REM Catagory Descriptor Array 2010 REM * * 
1240 DIM NC(11) 2020 REM * Display Primary Menu * 
1250 REM Day Descriptor Array 2030 REM * * 
1260 DIM ND(9) 2040 REM x3 xx 33 X X XXXIII E EEE 
1270 REM 2058 REM 
1280 REM Set up expense catagories 2060 CLS 
1290 NC(0)z"LODGING" 2070 REM Reset Menu Select (MS) 
1300 NC(1)="AUTO" 2080 М5-0 
1310 NC(2)z"AIR FARE" 2090 REM REM Display Menu 
1320 NC(3)="CAR RENTAL" 2100 PRINT @ 83,"1> ENTER DATA" 
2110 PRINT 8 163,"2> DISPLAY TOTALS" 
i 2120 PRINT 8 104,"3> PRINT REPORT" 
The Handicapper 2150 PRINT @ 184,"4> END" 
Use the power and portability of your Model 100 Com- 2140 REM Shift to INVERSE display 
puter to improve your performance at the the track— 2150 PRINT РІ; 
and we mean at the track! Never were a computer and " " 
program better matched. The Handicapper comes with 2160 PRINT 4 18, ie EXPENSE MENU E 
separate programs for harness and thoroughbred 2178 PRINT 8 250," Select Function "j 
horses. They apply sound handicapping techniques to 2180 INPUT MS 
produce rankings for the horses in each race. Factors 2190 REM Shift to NORMAL display 
include speed ratings, distance, track condition, post 2200 PRINT PN; 
position, past performance, jockey or driver's record 2210 REM у 
and other attributes. 

Using information readily available from the the 2220 REM Test for selected function 
thoroughbred Racing Form or the harness track pro- 2230 ON MS GOTO 3070, 4060, 5060, 6120 
gram, you can handicap a race in just a few minutes 2240 REM Jump to INVALID SELECTION routi 
and an entire card in less than an hour. Better yet, you ne 
can do it at home before the race or tote your Model 100 
to the track and handicap between races! No more 2250 GOSUB 7178 : 
between-race boredom! Rankings are listed to screen 2260 REM Redisplay Primary Menu 
or printer, and the 24K version will even print a file to 2278 GOTO 2050 
RAM showing the entire day’s ratings. 2280 REM 
_ The Handicapper comes with complete documenta- 3000 REM кекке кке еее ен кене 
tion, including betting guidelines апа diagrams of 5010 REM + M 
Racing Form and harness program listingsto show you 
where to find the information you need. We can't 3020 REM * Enter Data Module * 
guarantee a winner every time, but whether you're a 3030 REM * * 
novice or serious horseplayer, The Handicapper will 3040 REM ЖЕЖ ЕЕЕ ЕЕ ЗЕЕ ЗЕЕ ЗЕ ЗЕ ЗЕ ЧЕ ЗЕ ЗЕ ЗЕЕ ЗЕ ЗЕ ЕЕ 
eliminate the guesswork. Send check ог money order 3050 REM 


for $49.95. Specify 8K or 24K. 


. 3060 REM Jump to FILE LOADED? routine 
Federal Hill Software 3070 GOSUB 7300 


825 William St. 3080 REM Reset DATA SAVED flag (8) 
Baltimore, MD 21230 2090 5-й 
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3100 REM Reset TOTALED? flag (T) 3700 PRINT @ 225," "j 

5110 T=0 3710 INPUT A 

3128 CLS 3728 REM Get next item 

313@ REM Display Day Selection Menu 3738 IF A="N" ОК Az"n" THEN 5520 

3140 PRINT 8 43,"1> SUN" 3740 REM Check for error, redisplay 

3150 PRINT 8 123,"25 MON" 3758 IF A<>"Y" AND A<>"y" THEN 3628 
3160 PRINT 8 203,"3> TUE" 3768 REM Enter NEW Amount 

3178 PRINT 8 56,"4> WED" 3778 CLS 

3180 PRINT @ 136,"5> THU" 3788 PRINT РІ; 

3190 PRINT 8 214,"6> FRI" 3798 PRINT 8 18, ND(D) 

3200 PRINT 8 69,"7> SAT" 3800 PRINT PN; 

32180 PRINT ё 149,"8> MENU" 3810 PRINT 8 9Q,"Enter NEW Amount for" 
3220 REM Shift to inverse display 3820 PRINT @ 172, NC(C) 

3230 PRINT PI; 3830 PRINT 8 181," "j 

3240 PRINT 8 293," Select One "; 3848 INPUT E(D,C) 

3250 INPUT DS 3850 КЕМ Get next item 

3260 REM Shift to normal display 3860 GOTO 3528 

3278 PRINT PN; 3870 REM 

3288 REM Set Day Pointer 4000 REM тектен кеткеннен 
3298 D=DS-1 4010 REM ж ж 
5500 КЕМ Check for Invalid Entry 4020 REM * Display Totals Module * 
3310 IF D>=@ AND D<=6 THEN 3380 4050 REM + * 
3320 IF D=7 THEN 2060 4040 REM ОКЕАНЕ ЕНЕН КЕ HEE EERE EERE 
3550 КЕМ Jump to INVALID SELECTION 4050 

3348 GOSUB 7170 4060 CLS 

3358 REM Redisplay Day Menu 4070 REM Jump to FILE LOADED? routine 
3368 GOTO 3120 4080 GOSUB 7300 

3370 REM Data Entry Loop 4090 REM Jump to TOTALED? routine 

3380 FOR C=0@ TO 18 4100 GOSUB 8210 

3390 CLS 4110 REM Display Daily Totals 

3400 REM Reset ñ 4120 CLS 

3410 A=" x" 8150 PRINT 8 80, USING Рі; М№ (0), Е(8,11 
3420 REM Test for existing data ) 

3430 IF Е(0,С)<›0 THEN 3620 4140 PRINT @ 150, USING P1; ND(1), E(1,1 
3440 PRINT PI; 1) 

3450 PRINT 6 18," ";ND(D);" " 4150 PRINT 8 240, USING Pi; ND(2), E(2,1 
3460 PRINT PN; 1) 

3470 PRINT @ 92,"Enter Amount For" 4160 PRINT 8 94, USING P1; ND(3), E(3,11 
3480 PRINT 8 172, NC(C); ) 

3362 INPUT E(D,C) 4170 PRINT 8 174, USING Рі; ND(4), E(4,1 
3500 REM Check for Return to Menu 1) 

3510 IF Е(0,С) <0 THEN 3550 4180 PRINT 8 254, USING Рі; ND(3), E(5,1 
3520 NEXT C 1) 

3530 REM Jump Over Reset to @ 4198 PRINT @ 108, USING Pi; М0(6), E(6,1 
3548 GOTO 3570 1) 

3550 REM Reset Entry to Zero 4200 REM Inverse Text 

3560 E(D,C)=8 4210 PRINT PI; 

357@ REM Reset Day Select (DS) 4220 PRINT 8 8," DAILY TOTALS " 

3588 DS=0 4230 PRINT 8 188," «ENTER? " 

3590 REM Return to Day Menu 4240 PRINT 8 227," to Continue "; 

3608 GOTO 3128 425@ REM Return to normal display 

3618 REM Display Current Value 4260 PRINT PN; 

3620 CLS 4278 PRINT 8 267,""3 

3638 PRINT PI; 4280 INPUT A 

3640 PRINT 8 17," ";ND(D);" " 4290 REM Display Catagory Totals 

3650 PRINT PN; 4300 CLS 

3660 PRINT @ 92,"Current Amount For:" 4318 PRINT 8 80, USING P2; МС(0), E(7,0) 
3570 PRINT 8 132, NC(C);" = * 4320 PRINT 8 160, USING P2; NC(1), E(7,1 


3688 PRINT @ 142, USING "$###. S9" :E(D,C) ) 
3698 PRINT 8 212,"Change? (Y/N)" 4330 PRINT 8 240, USING P2; NC(2), E(7,2 
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PRINT @ 20, USING P2; NC(3), E(7,3) 
PRINT @ 100, USING P2; NC(4), E(7,4 


PRINT ë 180, USING P2; NC(S), E(7,5 
REM Jump to Display Titles Routine 

GOSUB 8690 

REM Display Next Page 

CLS 

PRINT @ 80, USING P2; МС(6), Е(7,6) 
PRINT 8 168, USING P2; NC(7), Е(7,7 
PRINT 8 240, USING P2; NC(8), E(7,8 


PRINT @ 20, USING P2; NC(9), E(7,9) 
PRINT 8 100, USING P2; NC(10), E(7, 


PRINT @ 180, USING P2; NC(11), E(7, 


REM Jump to Display Titles Routine 


GOSUB 8690 

REM Return to Primary Menu 

GOTO 2050 

REM 

REM XXX X X OO EROR IE ERE GE кекке 
REM * * 
REM * PRINT REPORT MODULE * 
REM * £ 
REM 3X QOO ЕНЕН НЕКЕ. 
REM 

CLS 


REM Jump to FILE LOADED? Routine 
GOSUB 7300 

REM Jump to Totaled routine 
GOSUB 8210 

REM Display PRINT TO: menu 

CLS 

PRINT PI; 

PRINT @ 14," PRINT TO: " 

PRINT @ 253," Select One " 

PRINT РМ; 

PRINT 8 129,"1» PRINTER" 

PRINT 8 144,"2> RAM" 

PRINT 6 267,° "j 

INPUT 05 

ON OS GOTO 5240, 5270 

REM Jump to INVALID SELECTION routi 


GOSUB 7178 

МО= "ЕРТ: " 

КЕМ Jump to Enter Name 
GOTO 5290 

NO="RAM: REPORT. 00" 

REM Enter Name 

CLS 

PRINT @ 165,"Enter Name"; 
INPUT N 

REM Enter Report Date 
CLS 
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5348 PRINT @ 162,"Enter Last Day of Repo 
rt (MM/DD/YY)" ` 

5358 PRINT e 256," "; 

5360 INPUT W 

5378 REM Print Report 

5388 CLS 

5590 BEEP 

5400 PRINT 8 128,"Printing To: ";NO 

5410 REM Assign Output Device 

5420 OPEN NO FOR OUTPUT AS 2 

5450 REM Print Header 

5440 PRINT #2, TAB(25);"** EXPENSE REPOR 

T w**" 

5450 PRINT 82," " 

5460 PRINT #2, N; 

5470 PRINT #2, TAB(30); "For Week Ending: 
"ЗИ 

5480 PRINT #2," " 


5490 PRINT #2, USING "V V V NN 
Ұл YR VN 
X Ñ V"; ND(GD , NC(0), NC(1), МС(2 


), NC(3), NC(4), МС(5) 

5500 PRINT #2," " 

5510 REM Enter PRINT loop 

5520 FOR D=0 TO 7 

5538 PRINT #2, USING "V \ ####.## 
нн нн нн.) нн 

d тын”; ND(D), Е(р,0), E(D,1), 

E(D,2), E(D,3), Е(0,4), E(D,5) 

5548 NEXT D 

5550 REM Print Second Page 

5560 REM Print Header 

5570 PRINT #2," " 


5580 PRINT #2, USING "V V \ V 
Ñ Ñ Ж & A 
kN Үр ND(8), NCC , МС(7), NC 


), NC(9), NC(10), NC(11) 

5590 PRINT 42," " 

5000 REM Enter PRINT loop 

5510 FOR Dz8 TO 7 

5620 PRINT #2, USING"\ \ ####. 994 
ыз ны НЯНЯ. HH LLLP 
# ####.##"; ND(D), E(D,6), E(D,7), EC 
0,8), E(D,9), Е(0,10), E(D,11) 

5630 NEXT D 

5640 CLOSE 2 

5650 BEEP 

5660 REM Return to Primary Menu 

5670 GOTO 2060 

5680 REM 

5000 REM кекке REE ЕНЕН 
6010 КЕМ 
6820 КЕМ 
6030 КЕМ 
8040 КЕМ 
6050 REM 
6860 REM кекке кек к кеекекекккек кекке 
6070 REM 

6080 КЕМ Saves data file (NF) to RAM 
6090 REM and returns to MENU 


ж ж NE NE 


* 
* 
END MODULE * 
* 
* 


6100 
6110 
6120 
6138 
6148 
6150 
6160 
6170 
6180 
6190 


REM 

REM Check if a file is loaded 

IF L=@ THEN 6388 

REM Delete File ? 

CLS 

PRINT 8 132,"Delete ";NF+".DO" 
PRINT 8 175,"(Y/N)"j 

INPUT ñ 

IF Az"Y" OR Az"y" THEN 6360 

REM Check to see if file needs to b 


e saved 


6208 
6218 
6220 
6230 
6240 
6250 
6260 
6270 
6280 
6290 
6500 
6310 
6320 
6338 
6348 
6350 
6368 
6378 
6580 
6390 
6400 
6410 
6420 
7000 
7010 
7020 
7030 
7040 
7050 
7050 
7070 
7080 
7090 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
7180 
7190 
7200 
7210 
7220 
7230 
7240 
7258 


IF 821 THEN 6380 
REM Save array to RAM 
CLS 
PRINT 8 175,"Saving Array" 
REM Open Output File 
OPEN NF FOR OUTPUT AS 2 
REM Enter Save loop 
FOR D=0 TO 7 
FOR С=0 TO 11 
E=E(D,C) 
PRINT #2, E 
NEXT C 
NEXT D 

CLOSE 2 
REM Skip over KILL 
GOTO 6380 
KILL NF+*,DD* 
REM Reset MAXFILES 
MAXFILES=1 
REM Exit EXPNSE and return to MENU 
MENU 
END 
REM 
REM кке кектен ТРГ СИРА 


* * * ж ж 


* 
* 

REM * Subroutine Library 
* 
* 


REM КЕН КЕ КЕН КЕ КАНЕ еккен 


REM Displays "INVALID SELECTION‘ 
REM when invalid menu item is 
REM selected. 
CLS 
PRINT @ 132,"INVALID SELECTION" 
BEEP 
REM Timer Loop 
FOR 50=1 TO 500 
NEXT SD 
RETURN 
REM 
REM е тоно нео оа ан очае онанд ванае 


REM + 4 
REM + File Loaded Routine + 
REM + + 
КЕМ ----------------------------- 
КЕМ 


КЕМ Checks to see if а даға file 
REM is loaded. 

IF ізі THEN 7360 

REM Jump to Load File Routine 
GOSUB 7440 

RETURN 


REM Reset FS 

FS=0 

REM Display FILE Menu 
PRINT 8 125,"1> WEEK1.DO" 
PRINT 8 145,"2> WEEK2. DO" 
PRINT РІ; 

PRINT @ 14," FILE MENU " 
PRINT @ 253," Select One"; 
INPUT FS 

PRINT PN; 

ON FS GOTO 7610, 7638 

REM Jump to Invalid Selection Routi 


GOSUB 7170 

REM Redisplay File Menu 

GOTO 7440 

REM Assign File Names 
NFz"WEEK1" 

GOTO 7550 

NF="WEEK2" 

REM Determine if File exists 
ON ERROR GOTO 7958 

OPEN NF FOR INPUT AS 1 

REM Load Array 

CLS 

PRINT @ 128,"Loading Data Into Arra 


REM Check for EOF 
IF EOF(1) THEN 7790 
REM 
FOR D=0 TO 7 
FOR C=0 TO 11 
INPUT 81, E 
E(D,C)*E 
NEXT C 
NEXT D 
CLOSE 1 
REM Set File Loaded Flag (L) 
L=1 
REM Reset Error Trap 
ON ERROR GOTO 8050 
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REM 

REM Set Saved Flag to 1 

5=1 

RETURN 

REM 

КЕМ -----------е------------------ 
REM + + 
REM + 
REM + + 
У] ВАВА А 
КЕМ 

CLS 

REM Check for anything other than 
REM "File Not Found" Error 

IF ERR<>52 THEN 8050 

OPEN NF FOR OUTPUT AS 2 

CLOSE 2 

PRINT 8 132,"File Allocated" 

REM Return to FILE Check 

RESUME 7650 

REM Display Error Message and END 
CLS 

BEEP 

PRINT 

PRINT "ERROR ";ERR;" ENCOUNTERED" 
PRINT 

PRINT"PROGRAM ABORTED" 

BEEP 

END 

REM 

REM А А 
КЕМ + + 
REM + Check if TOTALED Flag (T) + 
REM + $ 
REM ------- ..................... 
REM 

REM Check TOTALED Flag 

IF T=1 THEN 8240 

REM Jump to Calculation Routine 
GOSUB 8320 

RETURN 


REM + + 


REM + š 


PRINT @ 134,"Calculating" 
REM Zero Totals 
FOR D=@ TO 6 
E(D,11)=8 
NEXT D 
FOR C=0 TO 10 
E(7,C)=0 
NEXT C 
E(7,11)=8 
REM Calculate Daily Totals 
FOR D=@ TO ó 
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8440 FOR C=0 TO 10 

8450 E(D,11)=E(D,11)+E(D,C) 
8460 NEXT C 

8470 NEXT D 

8480 REM Calculate Catagory Totals 
8490 FOR C=@ TO 10 

8500 FOR D= @ TO 4 

8510 E(7,C)=E(7,C)+E(D,C) 
8520 NEXT D 

8530 NEXT C 


8540 REM Calculate Total Expenses 

8550 FOR D=0 TO ё 

8560 Е(7,11) =Е (7,11) *E(D,11) 

8570 NEXT D 

8580 REM Set TOTALED? Flag (T) 

8590 T=1 

B600 RETURN 

8610 REM 

8628 REM ----------------------------- 
8650 REM + * 
8640 REM + Catagory Totals Display + 
8550 REM * * 
8660 REM С А eem mimm 
8570 REM 

8688 REM Inverse Text 

8690 PRINT PI; 

8700 PRINT ё Q," CATAGORY TOTALS " 
8710 PRINT 8 265,"<ENTER>" 

8720 PRINT @ 302,"to Continue"; 

8750 INPUT A 

8740 REM Normal Text 

8750 PRINT PN; 

3760 RETURN 


Listing 2: 


1 КЕМ EXPNSE V1.9 (packed) 146JULY83 
2 REM Donald J. Hanson (71435,1465] 


3 КЕМ Copyright 1985 All Rights Reserve 
q 

4 MAXFILES=2:DEFINTC,D,F,L,M,D,S,T:DEFST 
RA,N,P W:P1="N V $$###.#WUIP2="UN 

N $$###. #8": PI=CHRS(27) *"p":PNZCHR$(27)* 
"q"iDIME(7,11) ,NC(11) ,NDC9) NC(O) =" 0061 
NG":NC(1)2"AUTO": NC(2) :"AIR РАКЕ": МС(3)= 
"CAR RENTAL" :NC(4) "TAXI, BUS" 

5 NC(S) 2"PARK,TOLLS":NC(Ó) :"BREAKFAST":N 
C (7) Z"LUNCH": МС (8) "DINNER": NC (9) = "ЕМТЕК 
TAIN":NC(10)2"MISC. ": МС (11) = "рҮ TOTAL": 
но (0) = "ИМ": №0 (1) =" МОМ": № (2) = "ТЦЕ": № (3 
)z"WED": № (4) E" THU" t МО (5) = "ЕКІ": № (6) ="5 
Ат": Мр (7) = "ТОТ": № (8) = "рАҮ" 

6 СЕ5: М5=0: РАІМТЕВЗ, "1> ENTER DATA":PRIN 
T@163,"2> DISPLAY ТОТА 5": РКІМТЕІ04, "3› 

PRINT КЕРОАТ": РКІМТЕ184, "4> END":PRINTPI 
РІРКІМТЕ10," +» EXPENSE MENU ** ": РКІМТЕ 
250," Select Function ";:INPUTMS:PRINTPN 
7: ONMSGOTOB,17,21,38 

7 6050833: 60Т06 

8 6050834:5=0:Т=0 


9 CLS:PRINT@43,"1> SUN";PRINT8123,"2> МО 
N":PRINT@203,"3> TUE":PRINT655,"45 WED": 
PRINT@136,"5> THU"sPRINT@216,"6> FRI":PR 
INT@69,"7> SAT" sPRINT@149,"8> МЕМО" : PRIN 
TPI;:PRINT8293," Select One "3: INPUTDS:P 
RINTPN3:D=DS-1: IFD>=BANDD<=4THENI 1 
10 IFD=7THENSELSEGOSUB33:G0TO9 
11 FORC=@T010:CLS:A="x"sIFE(D,C)< >O8THEN! 
SELSEPRINTPI;:PRINT818," ";ND(D);" ":PRI 
NTPN; :PRINT@92, "Enter Amount For":PRINTé 
172,NC(C) ss INPUTE(D,C):IFE(D,C)<@THENIS 
12 NEXTC:G0TO14 
13 E(D,C) 20 
14 DS-0:60T09 
15 CLS:1PRINTPI;:PRINT817," "yND(D);" "sP 
RINTPN; :PRINT8922,"Current Amount For:": 
RINT8132,NC(C);" = ":PRINT8142,USING"$48 
#.%%")Е(0,0) i PRINTG212, "Change? (Ү/М№) ":Р 
RINT@225," "3s INPUTA: IFA-"N"DRA-"n"THEN1 
2ELSEIFAC "Y" ANDA" y" THEN15ELSECLS: PRIN 
ТРГ, 
16 PRINT@18,ND(D):PRINTPN;:PRINT@90,"Ent 
er NEW Amount for":PRINT8172,NC(C) : PRINT 
8181," ";:INPUTE(D,C):G0T012 
17 CLS: 6050834: GOSUB44: CLS: PRINT@8O,USIN 
БР1:МО (0) ,Е (0,11) *PRINT8150,USINGP1;ND(1 
),Е(1,11) :РКІМТЕ240, 051ІМВРІ: № (2) „Е (2,11 
)tPRINT894,USINGP1;ND(3) ЈЕ (3,11) : РКІМТЕ! 
74, 05ІМВРІ; № (4) ,E(4,11) *PRINT8254,USING 
Р1;М№ (5) ,Е(5,11) 
18 PRINT8188,USINGP1;ND(6) „Е (6,11) : РКІМТ 
PI;:PRINT8Q," DAILY TOTALS “:PRINT@188," 
CENTER? ":PRINT6227," to Continue "; : РА 
INTPN; : PRINT8267 , " " j : INPUTA: CLS: PRINT@8O 
sUSINGP2;NC(@) ,E(7,8)sPRINT@146@,USINGP2; 
NC(1),E(7,1) 
19 PRINT8240,USINGP2; NC(2) ,E(7,2):PRINT@ 
20,USINGP2; NC(S) ,Е (7,5) sPRINT@108,USINGP 
213NC (4) ,E(7,4) xPRINT8180,USINGP2: МС(5),Е 
(7,5) : 6080848: CLS: РКІМТЕВО, О5ІМВР2; МС(6) 
Е (7,6) :РКІМТЕі 60, 051М6Р2; №С (7) ,Е (7,7): Р 
RINT8240,USINGP2; NC(8) ,Е (7,8) 
20 PRINT@20,USINGP2;NC(9),E(7,9):PRINT@1 
80,USINGP2; NC( 10) ,E(7,10) :PRINT8180,USIN 
GP23NC(11) ,E(C7,11) 3 GOSUBA8: 50706 
21 CL8:608UB34:G08UB44: CLS: PRINTPI;:PRIN 
7814," PRINT TO: ":PRINT8253," Select On 
e ": РКІМТРМ; :PRINT8129,"15» PRINTER":PRIN 
T8144,"2» RAM":PRINT8267," "3: INPUTOS:ON 
05607025,24 
22 6050833 
23 М№0= "ЕРТ: ": 807025 
24 NO="RAM:REPORT. DO" 
25 CLS:PRINT81655,"Enter Name";:INPUTN:CL 
S:PRINT@162,"Enter Last Day of Report (M 
M/DD/YY) " 1PRINT8256," "3: INPUTW:CLS:BEEP 
:PRINT8128,"Printing To: ";NO: OPENNOFORO 
UTPUTAS2:PRINT#2,TAB(25) ; "++ EXPENSE REP 
ORT **":PRINT42," ":PRINT42,N; 
26 PRINTS2,TAB(SQ);"For Week Ending: "3W 


tPRINT#2," ":PRINTS2,USINB"NV V \ 
ұз NN M X ұл 
N Ñ V";ND(8),NC(0),NC(1),NC ( 
2),NC(3),NC(4),NC(S):PRINT#2," "sFORD=O8T 
07 
27 PRINT#2,USING"\ \ ####.## тн"... 
ян... нын нні ull 
8.4" SNDCD) ,E(D,U) ,E(D, 1) ,E(D,2) ,Е (0,3), 
E(D,4) ,E(D, S) sNEXTD:PRINTS2," " 
28 PRINT#2,USING"\ V V VN 
SM NY P XN 
\"3ND(8) ,NC G2) ,NC C7) ,NC(GB) ,NC(9) N 
C(10) ,NCC 11) 5PRINT42," “sFORD=0T07 
29 PRINT&2,USING"V V ####. #4 HHH. HH 
н.т тн. HH HHH. HH Rae 
#. ##" {МО (0) ,Е (0,6) ,E(D,7) ,E(D,8) ,E(D,9), 
E(D,10) ЈЕ (0,11) : МЕХТО: С. 05Е2: BEEP: 60706 
30 IFL=ØTHENZZ2ELSECLS:PRINT@132, "Delete 
"SNF+". DO"sPRINT@175," (Y/N) "3 : INPUTA: IFA 
z"Y"ORAz"y"THENSIELSEIFSZ1THENSZELSECLS: 
PRINT@175,"Saving Array": OPENNFFOROUTPUT 
AS2:FORD=O0T07:FORC=8TO11:E=E(D,C)sPRINT# 
2,Е: МЕХТС: МЕХТО: CLOSE2:60T032 
31 KILLNF*",DO" 
32 MAXFILES=1:MENU:END 
33 CLS:PRINT@132,"INVALID SELECTION": ВЕЕ 
P;FORSD=1T0500:NEXTSD: RETURN 
34 IFL=1THENSSELSEGOSUB36 
35 RETURN 
36 CLS:FS=O:PRINT@125,"1> WEEK1.DO":PRIN 
T@145,"2> WEEK2.DO":PRINTPI;:PRINT614," 
FILE MENU ":PRINT@253," Select Опе"; : ІМР 
UTFS: PRINTPN; : ONFSGOTO38,39 
57 808UB33:6G0T036 
38 NFz"WEEK1":G0TO040 
39 NF="WEEK2" 
40 ONERRORGOTO42: OPENNFFORINPUTAS1:CLS:P 
RINT@128,"Loading Data Into Array": IFEOF 
(1) THENS1ELSEFORD=@T07:FORC=OTO11: INPUT# 
1,E:E(D,C) =Е: МЕХТС: NEXTD 
41 CLOSE11L*11 0NERRORGOTO43:821: RETURN 
42 CLS: IFERR&252THENASELSEOPENNFFOROUTPU 
TAS2:CLOSE2:PRINT@132,"File Allocated":R 
ESUME4@ 
45 СЕ5: ВЕЕР: РКІМТ: РЕІМТ"ЕККОК ";ERR;" EN 
COUNTERED":PRINT:PRINT"PROGRAM ABORTED": 
BEEP: END 
44 IFT=1THEN4SSELSEGOSUB46 
45 RETURN 
46 CLS:PRINT@134, "Calculating": FORD=0T06 
:EGD,11) 20: NEXTD: FORCZQTO10:E (7,C) =0: МЕХ 
ТС:Е (7,11) =O: FORD=O0706:FORC=OTO1O:E(D, 11 
)*E(D, 11) +Е(р,С) sNEXTCsNEXTD:FORC=OTO1@: 
FORD=@T06:E€(7,C)=E(7,C)+E(D,C) : NEXTD: МЕХ 
TC: РОКО=@Т06:Е (7,11) =Е (7,11) *ECD, 11) : МЕХ 
TD 
47 T=1:RETURN 
48 PRINTPI;:PRINT@@," CATAGORY TOTALS ": 
PRINT@265,"<ENTER>":PRINT@302,"to Contin 
ue"; : INPUTA: PRINTPN; : RETURN [PCM] 


November 1983 PCM 35 








Reviews 








SOFTWARE 


Porta Calc Does It 
‘Very Well, Indeed’ 


The Porta Calc package from Skyline 
Marketing Corporation comes ina neat 
little 8” x 9” padded three ring binder, 
with its two cassettes in a holder on the 
inside of the front cover. There are three 
programs in the package. On the first 
cassette we have Porta Calc, in the 
second, Porta Print and Porta Dex. 

The Porta Calc program is а full- 
blown versatile spreadsheet program 
that offers the complete range of func- 
tions that we have come to associate 
with a good spreadsheet. It is a 14 
column by 26 row format with both 
rows and columns designed by letters 
(i.e. the coordinates for the home cell 
would be AA). 

The documentation is quite good, but 
several mistakes were detected. On page 
9 the “BG” at the end of the second 
paragraph should be “BF,” and “AG” in 
the fourth paragraph should be “AF.” 
Upon calling Skyline and questioning 
them regarding these errors they offered 
immediate and excellent support and 
even called back, at their own expense, 
with the answers to my questions in 
under an hour. I found them to be eager 
to support their product and knowl- 
edgeable enough to do so. 


An easy-to-follow tutorial gets the 
new user off to a very rapid start and 
demonstrates all of the capabilites of the 
program ina clear and concise manner. 

Full use is made of the Model 100’s 
function keys: 

FI(HOME) moves the cursor direct- 
ly to the AA position on the spread 
sheet. 

F2(LOAD) gives the option of 
loading worksheets or templates from 
cassette or RAM. 

F3(SAVE) saves files to cassette or 
RAM. 

F4(FILE) displays files in RAM. 

FS(PRINT) offers formatting for 
current work sheet. 

F6 - not used. 

F7(VIEW) turns on a view line to 
display formulas and other information 
pertinent to current operations. 

F8(MENU) returns you to the 
M100 menu after typing “Menu” to 
confirm the command, this could be 
shortened to a Y/ N response and some 
time would be saved. 

The program will support Addition, 
Subtraction, Multiplication, Division, 
and Exponentiation. A nice feature was 
the ability to enter a problem on the 
command line and have its answer end 
up ina cell. For example if you put 2+4 
on the command line, the answer 6 
would be the value stored in the selected 
cell. 

Cursor movement is handled in the 


see and hear 
what's new for your 


TRS-80° 
Color 
Computer 


The Largest Color Sanne Ë Exhibition Under One Roof 


ж“СоСо Community” Breakfast — Sat. 8 a.m. 


xSeminars on Many Subjects 
жбее All The Latest CoCo Products 


Fri. Feb.17 — 
Sat. Feb. 18 — 
Sun. Feb. 19 — 


7 p.m.-10 p.m. 
10 a.m.- 6 p.m. 
11 a.m.- 4 p.m. 


Advance Ticket Prices: 

$8 Three-Day Ticket 

$6 One-Day Ticket (specify day) 
$11 Breakfast Ticket 


HYATT-REGENCY LONG BEACH 
Sponsored by the RAINBOW 
The Premier Color Computer Magazine 


Information: Са// (502) 228-4492 
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usual manner on the Model 100 and 
there is an editing feature that allows 
you to change a formula if you so desire. 

Youcan save files to RAM or cassette, 
you can merge worksheets, you can 
insert and clear rows and columns, you 
can replicate entries, you can print out 
reports, you can even get back to nor- 
mal, if things get messed up, without 
losing data. 

To quote the manual, Porta Dex, the 
first of the companion programs, “allows 
you to reformat Porta Calc files into the 
popular DIF (Trade Mark) format used 
by VisiCalc for sharing files with other 
programs." The limitation exists that no 
formulas are transferred, only labels 
and values. This program is used to 
transfer data to another, larger-capacity 
computer in either modem or RS 232 
interface with the M 100 via the TEL- 
COM program. 

Porta Print, the other companion 
program is a text formatter with the 
following features: 

1) Left margin set 

2) Right margin set 

3) Top margin (first line) set 

4) Length of page 

5) Page numbering option 

6) Optional continuetion page header 

7) Choice of output (screen or printer) 

8) Line feed option 

9) Flush right justification 

10) Centered lines 
11) New page control 


Back Issue Availability 


All back issues sell for the single issue 
cover price of $3. In addition, there isa 
$1.50 charge per issue for postage and 
handling within the United States, Can- 
ada and Mexico. 

VISA, MasterCard and American 
Express accepted. Kentucky residents 
please add 5 percent state sales tax. 


Correction 

We are sorry for an inaccuracy in a 
review in the October issue of PCM. It 
was stated in that review that SCRIBE, 
of Chattanooga Systems Associates, was 
the first word processing program deve- 
loped for the Model 100. This is not the 
case. In fact, Portable Computer Sup- 
port Group, of Dallas, had previously 
issued a word processing program, 
WRITE+. A review of WRITE+ ap- 
peared in our August issue. 








The text formatter lacks the single- or 
double-space option which, to me, is an 
absolute necessity. This, of course, could 
easily be added. 

Тһе one problem, on а personal and 
practical level, that I had with Porta 
Calc was it’s size. І use the Model 100 
for various tasks that grease the flow of 
my day-to-day activities. One of the 
М100% capabilities that 1 depend on 
most is the address book data base file, 
presently only 5374 bytes long. In addi- 
tion to the address file 1 keep other short 
programs loaded that perform such 
functions as an expense program and 
it's files, a text formatting program, a 
calculator, an alarm, a calendar, a gas 
mileage program and a password pro- 
gram and 1 still have between 11000 and 
9000 bytes free to work with. That 
amounts to a lot of things the Model 100 
is doing. Because of the size of Porta 
Calc | had to choose which functions to 
eliminate. It turned out to be the address 
book, which caused me untold incon- 
veniences, and the expense program. As 
you can see, this cuts down on the rea- 
son for having the computer in the first 
place. It seems that the introduction of 
ROM packs would help to alleviate the 
congestion; however, there would be a 
cost problem, I’m told. 

All in all, I found this to be a well- 
designed and attractively presented 
package with excellent support. A 
package that did what it was supposed 
to do very well indeed. 

(Skyline Marketing Corp., 4510 W. 

Irving Park Rd., Chicago, IL 60641, 
$69.95) 


— C. Davey Utter 


HARDWARE 


Spectrum Upgrade 
Just Clicks Right In 
Without A Hitch 


Alan Funt had a movie out several 
years ago titled What Can You Say To 
A Naked Lady? Іп many ways, this 
review should be titled What Can You 
Say About A Memory Upgrade? 

There really isn't a whole lot to say. 
The upgrade either works or it doesn't. 
It is either easy to install or it isn't. In 
both cases here, the answer is simple 
and affirmative. 

The Spectrum Projects 8K memory 
upgrade consists of a chip and some 


instructions. The instructions are com- 
plete in that they tell you exactly what to 
do. In fact, they are very complete, even 
cautioning you not to pull on wires as 
you open the Portable Computer's case. 

Following the directions, it is easy to 
spot the empty place (or places) where 
your memory module can plug in. Being 
careful not to bend any of the pins on 
the module, you simply plug it it, put the 
Portable Computer back together, and 
then turn it on. 

You will have an additional 8K of 
memory. 

We encountered no trouble whatso- 
ever in either the installation or the 
results therefrom. So, what can you say 
about the upgrade other than it is easy 
to do and works. 

I purposely don't mess with the “inside” 
of computers, because that's not my 
thing. While not exactly a fumble-fingers, 
l am not particularly nimble, either. 
Yet, | had this upgrade installed in five 
minutes. 

Two things you should know, how- 
ever. Although this upgrade is lessexpensive 
than the one available from Radio Shack, 
opening the case will void your war- 
ranty. And, if you have programs stored 
in memory before you upgrade, be sure 
to save them on tape as you will lose all 
memory to the computer when you do 
make the change. 

(Spectrum Projects, 93-15 86th Drive, Wood- 
haven, NY 11421, $85 each; $80 for two or 
more) 


SOFTWARE 


Greymoon 
On The Rise 


You have little wheat to feed a grow- 
ing population. The treasury is near 
empty. Your advisors warn of possible 
revolt and imminent invasion by the 
Lakemen. All look to you for guidance. 
What's the master of Greymoon to do? 

It this sounds familiar, you either 
have delusions of grandeur or you have 
played Greymoon before. If this sounds 
interesting, you should try out Grey- 
moon on the Model 100. 

Maybe you are one of those people 
who think the Model 100 is strictly bus- 
iness. Perhaps you bought a 100 because 
it couldn't possibly be confused with 
one of those "game machines." Don't 
worry! Tell your friends this is a think- 
ing man's game and head for the greener 
pastures on the other side of the Grey- 


moon Mountains. 

Your mission is to build Greymoon 
into a large and powerful city. Your 
personal power will of course depend on 
the size and populations of your king- 
dom. You have 15 Grey-Years to win 
your fortune. With your band of trusty 
advisors (who don't always tell you 
much) and a few loyal subjects, you 
begin the annual cycle of planting, tax- 
ing, buying and selling, distributing 
food, and, yes, even plundering and 
pilaging your neighbors. 

Getting started with Greymoon was 
simple enough, even without any docu- 
mentation specific to the Model 100. 1 
received a cassette with two copies of 
Greymoon on it, which was fortunate 
since the first wouldn't load at all. The 
game was apparently written for the 
Model 1/ П and converted to the 100. I 
haven't seen the other versions, but this 
BASIC program makes nice use of the 
100's screen. Several of the displays in 
the game are loaded with information 
without seeming crowded. You can get 
a single screen summary of your entire 
kingdom— people, food, money, land, 
taxes, and even the current Grey-Year. 
Not bad for 320 characters! 

Greymoon is a game of strategy. 
There are no elaborate graphics—no 
gobbling of dots or destruction of aliens. 
Yet, it does use the 100's sound capabil- 
ity and it is as fast paced as you choose. 
Though not originally written for the 
100, Greymoon is a welcome addition to 
this unique machine. It's also addictive 
and often frustrating. 

The documentation does cover the 
basic options of play and lays down the 
cardinal rule—experiment with differ- 
ent strategies and never assume any- 
thing. Greymoon's strongest point is 
this variety of possible strategies and the 
frustrating conclusion of many first 
tries. You quickly realize that to keep 
your people and attract others you must 
feed them well. (Do I sound somewhat 
benevolent? Don't worry. It’s basically 
greed, not concern.) But the affect of 
adjustments to the tax is not nearly so 
predictable. And when you decree that 
it is time for the Grey-Year to end, you 
can never be sure what pre-ordained 
disasters await you. 

All of this variety comes at a price. 
Greymoon requires almost 13,000 bytes 
to load and, if it will run at all па 16K 
machine, you must completely empty it 
first. My guess is that you'll need 24K or 
more. 

My only complaints about this game 
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The Rackseller 











ALABAMA 
Florence Anderson News Co. 
Madison Madison Books 
ALASKA 
Fairbanks Electronic World 
Fairbanks News Agency 
Kotzebue Arctic Bookstore, Inc. 
ARIZONA 
Phoenix Road Runner 
Computer Pro 
Scottsdale Softwareland Corp. 
Tucson Anderson News Co. 
CALIFORNIA 
Atwater Electro Brain 
Citrus Heights Softwore Plus 
Half Moon Bay — Strawflower Electronics 
North 
Hollywood Levity Distributors 
Sunnyvale Computer Literacy 
CONNECTICUT 
Hartford The Aetna Life Club Store 
DELAWARE 
Wilmington Normar Inc.—The Smoke Shop 
FLORIDA 
Ft. Lauderdale Software Connection 
Miami Newsrack 
Panama City Computer Systems Group 
Pensacola Anderson News Co. 
Tallahassee Anderson News Co. 
Winter Park Independent Computer Systems 
GEORGIA 
Atlanta Guild News Agency 
Columbus Muscogee News Co. 
Trenton The Phone Line 
ILLINOIS 
Chicago Kroch's & Brentano's 
Jackson Street 
Kroch's & Brentano's 
Wabash Ave. 
Chicago Prairie News Agency 
Oakbrook Kroch's & Brentano's 
INDIANA 
Elkhart Elkhart City News & Book Store 


Indianapolis A— Computer Store 

Madison Arco Office Supplies 
IOWA 

Davenport Interstate Book Store 
KANSAS 

Wichita Amateur Radio Equipment Co. 

Lloyd's Radio 

KENTUCKY 

Benton Anderson Electronics 

Pikeville Gus-Stan Enterprises 
LOUISIANA 

Slidell Radio Shack 
MAINE 

South Portland Portland News Co. 
MASSACHUSETIS 

Littleton Computer Plus 

Marlboro Radio Shack 

Woburn Microcon Software Centers 
MICHIGAN 

Novi MI Software Dist., Inc. 
NEBRASKA 

Lincoln Hobby Town 
NEVADA 

Las Vegas Hurley Electronics 
NEW HAMPSHIRE 

Manchester Brookwrights 

Petersborough Radio Shack 

West Lebanon Verham News Corp. 
NEW JERSEY 

Hackensack Total Circulation Service 

Midland Park Software City 

Pennsville Dave's Electronic Radio Shack 
NEW MEXICO 

Albuquerque News and Bookstore 

Albuquerque Page One Newsstand 
NEW YORK 

Johnson City Unicorn Electronics 

New York City ` Usercom System, Inc. 
NORTH CAROLINA 

CARY It's Just For You, Inc. 
NORTH DAKOTA 

Fargo Computer Associates 


OHIO 
Cincinnati Softwarehouse 
Toledo Leo's 
OREGON 
Eugene Libra Books, Inc. 
Medford John's News Stand 
Portland 80-Plus 
Roseburg Rainy Day Bookshop 
Tigard 80-Plus of Tigard 
PENNSYLVANIA 
Pleasant Hills Pittsburgh Computer Store 
SOUTH CAROLINA 
Greenville Palmetto News Co. 
North 
Charleston The Green Dragon 
TENNESSEE 
Chattanooga Anderson News Co. 
Knoxville Anderson News Co. 
Memphis Computer Center 
Nashville Mosko's Book Store 
Smyrna Delker Electronics, Inc. 
TEXAS 
Austin Software & Things 
Dallas Micro Concepts, Inc. 
Elgin Homing Pigeon 
Ft. Worth A & A International 
RF Electronics 
Irving Software Access 
WASHINGTON 
Blaine Compulit Dist. 
Richland C & J Electronics Computer Center 
Seattle Adams News 
WISCONSIN 
Appleton Badger Periodicals 
Janesville Book World 
Milwaukee Campus Corner 
Portage Sam's Electronics 
CANADA: 
ALBERTA 
Calgary Rainbow Software Services 
Edmonton Kelly's Software Distributors 
NOVA SCOTIA 
Halifax Atlantic News 


Also available at selected B.Dalton Bookseller stores in the United States and Canada. 








are that it runs 15 Grey-Years, it in- 
cludes totally unprepared-for disasters 
and it literally runs forever. Everytime 
your kingdom is in ruins, the program 
suggests “Maybe next reign, Master” 
and plunges you into your next round. 
The only way to end it is by using the 
break key. Perhaps I'm nit picking, but I 
am the Master here! 

The length of each game could be 
much more annoying but for the way 
the Model 100 operates. All you have to 
do when youare ready to interrupt your 
session is turn the power off. Once you 
power up, you're back in mid-reign. But 
even in my brief attempts at kingship, I 
have been utterly unable to accept the 
devastation of all my well-laid plans. 
Just when I thought it was safe to go on 
to the next Grey-Year. . . 


(Computer Shack, 1691 Eason, Pon- 
tiac, MI 48054, $19.95) 


— Dennis Kirley 


New Products 








Paper Tractor 


Paper Tractor, a new device designed 
to use regular paper in your computer 
printer, is now available from Paper 
Tractor LTD. 

Further information may be obtained 
by contacting Robert McAdoo at (805) 
683-2851, or write to Paper Tractor 
Ltd., One South Fairview, Goleta, CA 
93117. 


ЭК RAM Module 


Holmes Engineering, Inc. has just 
released an 8K memory module called 
the IM-100. The IM-100 plugs directly 
into the existing sockets in the Model 
100, with no modifications to the sys- 
tem. Up to three of these plug-in mod- 
ules may be added to upgrade the 
Model 100 to a total of 32K RAM 
memory. 


Priced at $75 for each 8K module, a 
$70 per module price is given for the 
purchase of two or more. 

For more information, please call 
(801) 261-5652 or write to 5175 Green 
Pine Drive, Murray, UT 84107. 


Bar Code Reader 


Bi-Tech Enterprises, Inc. now has 
Bar Code Readers for the Model 100 
and the Epson HX-20 portable compu- 
ters. This Bar Code Reader allows users 
to read industry standard “3 of 9 code" 
and store the results in their computer's 
memory. The Reader features a push- 
to-read switch, a scanner rate of up to 76 
cm/sec, and will read lines as small as 
0.3 mm. 

The unit is totally self-contained and 
requires no additional hardware or soft- 
ware to operate. Each unit comes com- 
plete with software and Bar Code Read- 
er and is available at a retail cost of 
$279.95. A Bar Code generation pro- 
gram is also available. 

Contact Thomas Vande-Stouweat (516 
567-8155 for more information. 


ме 
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NEW! 


The Spectrum Projects PoCo Stand 





phe $5 shipping and handling 
Model 100 Cables У. residents add sales tax MM 
CoCo to Model 100 Cables ode emory 


Upgrade Module 
— $19.95 8K Model 100 s 
CoCo to Model I, ||, III, IV 


adis stock 426-3801 552 95 
PortCalc™ -Model 100 “elec- $679 ы 


tronic spreadsheet” with 14 
! 
column by 26 row e 7 For quick delivery call: 


SPECTRUM PROJECTS 


93-15 86th DRIVE 
WOODHAVEN, NY 11421 


PCM (212) 441-2807 


each 





Call our Bulletin Board for free Model 100 programs. BBS #1 — (212) 441-3755 
; BBS #2 — (212) 441-3766 

Now on line ... 20 MEG. CORVUS HARD DISK DRI 
мен ME BBS #3 — (212) 441-5719 


OF PERFECT MF 
ONE HALF EARTH DOL 









AT LAST: THE WHOLE 
TRUTH ABOUT FLOPPIES. 


aes book re 
all! 

How to keep from 
brainwashing your dis 
so it never loses it's 
memory. : 

How fingerprints can 
actually damage disks. 
Unretouched Kirlian 
photographs of UFO's 
(Unidentified Floppy 
Objects)! The incredible 
importance of making 
copies: the Department 
of Redundancy Depart- 
ment— and what goes on 
when it goes on! Power- 
ful secret methods that 
scientists claim can ac- 
tually prevent computer 
amnesia! All this, and 
much more . . . 

In short, it's an 80- 
page plain-English, 
graphically stunning, 
pocket-sized definitive 
guide to the care and 
feeding of flexible disks. 

For The Book, ask your 
nearest computer store 
that sells Elephant" 
disks, and bring along 
one and one half earth 
d ћ 

For the пате of the 
store, ask us кенет 
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SYSTEMS? Marketed ~ November 28-December 2, 4 
exclusivelu bu Leading 2 

Edge Products, Inc., 
Information Systems 
and Supplies Division, 

55 Providence Highway, 
Norwood, MA 02062. Call 
toll free 1-800-343-8413, 
In Massachusetts, call 
Collect (617) 769-8150, 
Telex 951-624. 


44225 FHI 





